LIBMAC.MAC[PAS,SYS] - www.SailDart.org

perm filename LIBMAC.MAC[PAS,SYS] blob sn#634539 filedate 1981-12-30 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00042 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00005 00002
C00007 00003		TITLE	FREE *** PROCEDURE FREE ***
C00009 00004		TITLE	EXPO *** FUNCTION EXPO ***
C00011 00005		TITLE	ROUND *** FUNCTION ROUND ***
C00013 00006	
C00014 00007		TITLE	RUNPGM *** PROCEDURE RUN ***
C00017 00008		TITLE	WRTSTR *** PROCEDURES WRTPST AND WRTUST ***
C00019 00009		TITLE	NEW *** PROCEDURE NEW ***
C00021 00010		TITLE	READC *** PROCEDURE READC ***
C00025 00011		TITLE	WRTOCT *** PROCEDURE WRTOCT ***
C00028 00012		TITLE	WRTHEX *** PROCEDURE WRTHEX ***
C00030 00013		TITLE	WRTBOL *** PROCEDURE WRTBOL ***
C00033 00014		TITLE	READR *** PROCEDURE READR ***
C00039 00015		TITLE	TRUNC *** FUNCTION TRUNC ***
C00042 00016		TITLE	INTREA *** FUNCTION INTREA ***
C00045 00017		TITLE	WRITEC *** PROCEDURE WRITEC ***
C00047 00018		TITLE	WRTREA *** PROCEDURE WRTREA ***
C00056 00019		TITLE	WRTINT *** PROCEDURE WRTINT ***
C00059 00020	
C00060 00021		TITLE	READI *** PROCEDURE READI ***
C00062 00022		TITLE	TTYOPN *** PROCEDURE TTYOPN ***
C00064 00023	
C00065 00024		TITLE	OPEN *** PROCEDURES RESET AND REWRITE ***
C00077 00025		TITLE	REASTR *** PROCEDURES READS AND READPS ***
C00082 00026		TITLE	CLOSE *** PROCEDURE CLSFIL ***
C00085 00027		TITLE	PUT *** PROCEDURES PUT, PUTCHR, PUTLN, PUTPG AND TMPCRW ***
C00095 00028		TITLE	GET *** PROCEDURES GET, GETCH AND GETLN ***
C00106 00029		TITLE	DATE *** PROCEDURE DATE ***
C00110 00030		TITLE	TIME *** PROCEDURE TIME ***
C00113 00031		TITLE	EXIT *** PROCEDURES WRTPC AND OTHER EXITS ***
C00118 00032		TITLE	DEBSP *** DEBUG SUPPORT ***
C00130 00033	
C00131 00034		TITLE	WRTFNM *** PROCEDURES WRTFNM AND WRTSIX ***
C00135 00035		TITLE	TMPTST *** PROCEDURE TMPTST ***
C00138 00036		TITLE	ASTOSX *** PROCEDURE ASTOSX ***
C00140 00037		TITLE	REAAUX *** PROCEDURES GETSGN, GETINT AND RTEST ***
C00145 00038		TITLE	SETEOF *** PROCEDURE SETEOF ***
C00149 00039		TITLE	WRTAUX *** PROCEDURES WRTBLK, TOOSML, WRTSGN AND WRTOPN ***
C00152 00040		TITLE	FORER. *** PROCEDURE FORER. ***
C00153 00041		END
C00154 00042	
C00155 ENDMK
C⊗;
;
;	(C) COPYRIGHT H.-H. NAGEL
;                     INSTITUT FUER INFORMATIK
;                     DER UNIVERSITAET HAMBURG
;                     SCHLUETERSTRASSE 70
;                     2000 HAMBURG 13
;                     GERMANY
;                     1976
;
;*** PASCAL RUNTIME PROGRAM LIBRARY (18-AUG-76, KISICKI)
;
;*** DICTIONARY ***
;
;PAGE1 : DICTIONARY
;PAGE2 : FREE
;PAGE3 : EXPO
;PAGE4 : ROUND
;PAGE5 : ...
;PAGE6 : RUNPGM
;PAGE7 : WRTSTR
;PAGE8 : NEW
;PAGE9 : READC
;PAGE10: ...
;PAGE11: ...
;PAGE12: WRTOCT
;PAGE13: WRTHEX
;PAGE14: WRTBOL
;PAGE15: READR
;PAGE16: TRUNC
;PAGE17: INTREA
;PAGE18: WRITEC
;PAGE19: WRTREA
;PAGE20: WRTINT
;PAGE21: ...
;PAGE22: READI
;PAGE23: TTYOPN
;PAGE24: ...
;PAGE25: OPEN
;PAGE26: REASTR
;PAGE27: CLOSE
;PAGE28: PUT
;PAGE29: GET
;PAGE30: DATE.
;PAGE31: TIME.
;PAGE32: EXIT
;PAGE33: DEBSP
;PAGE34: ...
;PAGE35: WRTFNM
;PAGE36: TMPTST
;PAGE37: ASTOSX
;PAGE38: REAAUX
;PAGE39: SETEOF
;PAGE40: WRTAUX
;PAGE41: FORER.
	TITLE	FREE *** PROCEDURE FREE ***
	TWOSEG
;
;*** ENTRY-POINTS ***
;
	ENTRY	FREE
;
;*** EXTERNAL-REFERENCES ***
;
	EXTERN	WRTPC
;
;*** REGISTER DEFINITION ***
;
	AC0=	0
	AC1=	1
	REGIN=	1			    ;INITILISATION OF REGISTERSTACK
	REG=	REGIN+1
	REG1=	REGIN+1+1
	REG2=	REGIN+1+2
	REG3=	REGIN+1+3
	REG4=	REGIN+1+4
	REG5=	REGIN+1+5
	REG6=	REGIN+1+6
	NEWREG= 15
	TOPP=	17
;
;*** ADDRESSES
;
	.JBSA=	120
;
;*** START OF INVARIANT CODE
;
	RELOC	400000
;
;*** PROCEDURE FREE
;    - RESET NEWREG
;    - <AC0>=VARIABLE TO BE RETAINED
;    - AC1=LENGTH OF VARIABLE
;
FREE:	CAIGE	AC0	,(NEWREG)		;A(VAR) >= NEWREG
	JRST	FREERR				;NO - INVALID ARG TO FREE
	ADD	AC0	,AC1		        ;NEW POSITION
	HLRZ	AC1	,.JBSA			;NEW POS. 
	CAIL	AC0	,(AC1)			;< .JBSA
	JRST	FREERR				;NO - INVALID ARG TO FREE
	HRRZ 	NEWREG	,AC0 			;RESET NEWREG
	POPJ	TOPP	,			;RET TO CALLER
FREERR: OUTSTR	[ASCIZ/
%?	POINTER OUT OF BOUNDS: CANNOT RETAIN VARIABLE/]
	JRST	WRTPC
;
;*** LITERALS ***
;
	LIT
	PRGEND
	TITLE	EXPO *** FUNCTION EXPO ***
	TWOSEG
;
;*** ENTRY-POINTS
;
	ENTRY	EXPO
;
;*** REGISTER DEFINITION ***
;
	AC0=	0
	AC1=	1
	REGIN=	1			    ;INITILISATION OF REGISTERSTACK
	REG=	REGIN+1
	REG1=	REGIN+1+1
	REG2=	REGIN+1+2
	REG3=	REGIN+1+3
	REG4=	REGIN+1+4
	REG5=	REGIN+1+5
	REG6=	REGIN+1+6
	NEWREG= 15
	TOPP=	17
;
;*** START OF INVARIANT CODE
;
	RELOC	400000
;
;*** FUNCTION EXPO
;    - RETURN THE EXPONENT OF A REAL VALUE
;    - REG=REAL VALUE
;    - 1(TOPP):=EXPONENT AS INTEGER
;
EXPO:	JUMPGE	REG	,.+2			;POS. ARG.?
	MOVM	REG	,REG			;GET MAGNITUDE IF NOT
	LDB	REG	,[POINT 8,REG,8]	;GET EXPONENT
	SUBI	REG	,200			;200 FOR EXPONENT
	MOVEM	REG	,1(TOPP)		;STORE FUNCTION RESULT
	POPJ	TOPP	,
;
;*** LITERALS
;
	LIT
	PRGEND
	TITLE	ROUND *** FUNCTION ROUND ***
	TWOSEG
;
;*** ENTRY-POINTS
;
	ENTRY	ROUND
;
;*** EXTERNAL REFERENCES
;
	EXTERN	TRUNC
;
;*** REGISTER DEFINITION ***
;
	AC0=	0
	AC1=	1
	REGIN=	1			    ;INITILISATION OF REGISTERSTACK
	REG=	REGIN+1
	REG1=	REGIN+1+1
	REG2=	REGIN+1+2
	REG3=	REGIN+1+3
	REG4=	REGIN+1+4
	REG5=	REGIN+1+5
	REG6=	REGIN+1+6
	NEWREG= 15
	TOPP=	17
;
;*** START OF INVARIANT CODE
;
	RELOC	400000
;
;*** FUNCTION ROUND
;    - ROUND REAL VALUE TO NEAREST INTEGER
;    - REG=REAL VALUE
;    - 1(TOPP):=TRUNC(REG + 0.5)
;
ROUND:	FADR	REG	,[0.5]		;GET ARG. FOR TRUNC
	PUSH	TOPP	,REG1		;SAVE REG1
	MOVEI	REG1	,0		;2ND ARG. FOR TRUNC
	PUSHJ	TOPP	,TRUNC		;CALL TRUNC
	MOVE	REG	,2(TOPP)	;GET RESULT FROM TRUNC
	POP	TOPP	,REG1		;RESTORE REG1
	MOVEM	REG	,1(TOPP)	;STORE FUNCTION RESULT
	POPJ	TOPP	,		;RETURN TO CALLER
;
;*** LITERALS
;
	LIT
	PRGEND
	TITLE	RUNPGM *** PROCEDURE RUN ***
	TWOSEG
;
;*** ENTRY-POINTS ***
;
	ENTRY	RUNPGM
;
;*** EXTERNAL REFERENCES ***
;
	EXTERN	ASTOSX
	EXTERN	WRTSIX
	EXTERN	WRTPC
;
;*** REGISTER DEFINITION ***
;
	AC0=	0
	AC1=	1
	REGIN=	1			    ;INITILISATION OF REGISTERSTACK
	REG=	REGIN+1
	REG1=	REGIN+1+1
	REG2=	REGIN+1+2
	REG3=	REGIN+1+3
	REG4=	REGIN+1+4
	REG5=	REGIN+1+5
	REG6=	REGIN+1+6
	NEWREG= 15
	TOPP=	17
;
;*** START OF VARIANT CODE ***
;
RUNBLK:	SIXBIT	/      /
	SIXBIT	/      /
	SIXBIT	/      /
	XWD	0	,0
	XWD	0	,0
	XWD	0	,0
;
;*** START OF INVARIANT CODE ***
;
	RELOC	400000
;
;*** PROCEDURE RUN
;    - ISSUE RUN-UUO
;    - <REG>=ASCII/9 CHAR. FILENAME/
;    - <REG1>=ASCII/6 CHAR. DEVICE/
;    - REG2=PROJ.-PROG.-NR.
;    - REG3=CORE REQUIREMENT
;
RUNPGM:	MOVE 	AC0	,[SIXBIT/SYS   /]   ;ASSUME
	MOVEM	AC0	,RUNBLK		    ;SYS
	JUMPE	REG1	,NODEV		    ;DEVICE?
	MOVEI	REG5	,6		    ;YES, SET LENGTH
	MOVEI	AC1	,RUNBLK
	PUSHJ	TOPP	,ASTOSX 	    ;AND CONV. TO SIXBIT
NODEV:	HRRI	REG1	,(REG)		    ;ADDR OF FILENAME
	MOVEI	AC1	,RUNBLK+1
	MOVEI	REG5	,6
	PUSHJ	TOPP	,ASTOSX 	    ;CONV. FILEN. TO SIXBIT
	MOVEM	REG2	,RUNBLK+4
	IMULI	REG3	,2000
	HRRZM	REG3	,RUNBLK+5
	HRLI	AC1	,1
	HRRI	AC1	,RUNBLK
	RUN	AC1	,		    ;RUN SPECIFIED PROGRAM
RUNERR:	OUTSTR	[ASCIZ/
%?	CANNOT RUN /]
	MOVEI	REG1	,RUNBLK+1 	    ;PROGRAM'S NAME
	PUSHJ	TOPP	,WRTSIX 	    ;WRITE OUT NAME
	JRST	WRTPC
;
;*** LITERALS
;
	LIT
	PRGEND
	TITLE	WRTSTR *** PROCEDURES WRTPST AND WRTUST ***
	TWKSEG
3
;*** ENTRY-POINTS ***
;
	ENTRY	WRTPST
	ENTRY	WRTUST
	ENTRY	WRTPS1
	ENTRY	WRTUS1
;
;*** EXTERNAL REFERENCES ***
;
	EXTERN	PUTCHR
;
;*** REGISTERDAFINIT@∪∨8@TTT4∀v~∀%βε`Z$`~∧∪¬εbz∩D~∀∪%∃∂∪≤z$b∩α∩@@@w%≥∪)∪1∪'β)%∨≤A∨_A%∂%')%M)βπ⊗4∀∪%≤z∪%≥∪≤Vb4∀∪%≤bz∪%∃∂∪≤VDVb~∀%%∞dt∪%∂%_VbVH~∀∪%∃∞fz∪I∂β≤,bVf~(∪%∞Pz∪%≥∪≤Vb,h~∀∪I∞jz%%∂∪8VbVj4∀∪%≤lrβ%∃∂∪≤VDVl~∀%→⊗↑∀*≥u↓λεPhP~Iu¬βQ⊗∪8h'1PSZ%%"¬≥H~%"∧xd∧L@UP4I_3Uλλ9q⊃(¬%JC"G1"B4HY⊃pb&Fλε↓ ¬≥FB≥U∃∃λ()'aQb*a"H+i*(∀h↔ki∃*ijεB≥P⊂⊂λ⊗P+i∩h"P(⊂aebbλ)j)$SαC/STRING
;    - <REG1>=STRING
;    -REG2≥TOTAL LENGTH OF OUDPUT
;    - REG3=HENGTH OF STRIL¬ε~∀l~∃/%Q!&bt%≠↔-
%%β∞d$Y%∞L∩∩@@@w	→β+→(↓→≥∂Q⊂~∧∪)%'(∪]%)!'P~∃/%Q+&bt%≠∨-
%%∞d$Y%∞L∩∩@@@w	→β+→(↓→≥∂Q⊂~(LRJNPM:JRV≥ 4*↑∃"BNQPJ"J2HJJε≥λI1QQβ9AAJ↓↓↓↓]:J&R*αBε∞\*⊃αN%∩&*≤hP&*J≥ &
2r-5DhR↑JR-~Qh&E∩2$&∀*≥D%c!QQQβ4(→*Tm∧HQ∃∀,v!∩e=*J$-"↓∀αααπ8dL,HJtL%Iβjβ∧πphT)H∀t[!_4Lq~$,;!∃BE∀Xv2J∀∧ααβ9HT$→hr∧∀H→d]~
(U
X:D,"πqPPL**5 M8H∃∃ ⊃⊃∩αα∧π4txQ!∀l⎇hY⊂L4↓∩b∩∧!PPM
Z4DP~Iu¬∃J¬-$9
 hP~9tTλ~(T;⊂∃H$di4Jα∧∧Jα∧∧β\Lz(R∧dX_DLTtλ$di:2βxQ*5$
*G"α∧→HD⊂L_6Je(Xsλh!~¬-≤	!∃$⎇
↓∩e¬XH4E⊂Q!∃≤|(q∃∀,v!∩e≥H~%"α↓∀αααπ8∀uJλ9∧
∀_:D-∩	HT5"πqPU=*J$-#$
∧⎇∧!~D⎇¬↓∃@HJ∧∧αβ\itαj¬(ZE-∀aQ#Xh'5"RR	I∃$-(→E~α%% hS1Q Ld~APPM
(t,tAQ `MI~Dd(→hU:α%%"¬¬)x4,%Z(R∧tZtαRR!Q M%yz4,8Q'0hS5%"R∧YjE∃JZ	tLuJ4αRR!Q#Xh!_Tu%+⊃∀t-qQ#Xh'5"RRλ[¬$-)h∀b¬(Xd-∀Yh4-~¬%"Ph'1PPL[
D-∀a~u∃%λ1PSXQ'2RR$
$,<~:D-∩λHT4Li~DL|d¬"RPQ'0hP__3βh⊗↓PPL_6∪hK⊃Q M∀Xy∀sh⊗⊃⊂HJ∧∧αβ\→i∃$LI~4
$→yb∧|d
$,<~:D-∃:H∀≤XQ!∃∀,wQ∃∀,y→b[λQ!∃∀,v↔PM∀Xy∀r[∃6⊂hP~(T;∪Q~$,<→e3
[!Q M∀Xv3hM(XtLr6∃3_h!~$,;GQ∃∀,y→b[
6APPM(Xs+h~(T<Le6∩[(Q!∃∀,vgPM∀Xy∀r[∃6`hP→hU=∀XwRβQQ M$z
βhK⊗qPSXQ'2RR$
5$
*D∧|2	→e4
)_∀u"λ9t$*¬%"Ph'1PPM(YD|_⊗Fβββε↓PSXQ'2RR$
¬∀|8XE-∀T	d-8Q'2αα∧¬R∧IIt≤
HT∧%Lh→TL~
h∃∀L_)D-_Q'2αα∧¬R¬∀XwTd,hzDB∧xd¬4
)_∀∀dQQ#Zα∧∧αjβJ(T;s'Zd
∀__$d(Q'0hThZsPM:X LtZz$,8∃J$,8⊃∀αααπ:U∧$~HR∧tZz$,8Q!∀≤→A∀t-z(T8JFFαE$z
αHJ∧∧αβ[F∧∧d|8~DL|j4¬$zλ_4≤⎇YjB∧4z!PPH⊃⊃⊂Jα∧∧β]-8T∧|2
:D≤4λ%J¬*Ye$LXT¬≥-
	u∃ Q!∀U∃:A∀dIx0HH∀∧ααβ9y2αjλ→Dd|8~D*¬:Iu∀xQPPL_HDHLhZu∀,q∃BE∀Xu⊂HJ∧∧αβ](Z4-"	hU=∀Xt∧|r	zd-∃*Y`hP→*%≥ →hU<-*!⊂HJ∧∧αh(→Dd|7!∀E∃!_∀≠λ∃Id-=(XrJ∧∧αh!→T⎇4a~$,8∃J$,8Q!∀E∀A_∀≠λ∃J$,8Q(4d,~' M≤ZK$hJλ_3
H⊃⊃∩αα∧π5≤-D
$-
XZ5$,D↓PPL→x$Tp__3λJH9D,
!⊃∩αα∧π5≥$z(∀<*
Ir¬TZ)phP→Yu4(~(T8JIhU=∀Xq⊂Jα∧∧β]∀ZJU∀rλ_D%∩	xb¬4~)∀∀HQPPM	z∧PMIz¬JAQ$t-xZ%∪P→zU%≥J!∃\
89∃RxQ$SxLλX∃α∧zhU∃∃Yj2¬≥H_4[R
(U%∃∀
tM$∧	T⎇∀Tλ4⎇∀U{PhP→*%≥ ~z%%∧1Q#Xh'5"RR	I∃$-(→E_h'1PPLI~@hP~
$<,hAPP`MI~Dd(~(T$4¬"RR

$|≤XJU∀*
(T$4¬"RPQ!∃%<z8T8h'1PSZ%%"∧,jJ%Jm	y∀u%4¬"RPQ'0hP_Ye%∃⊃~$,H1PSXQ'2RR$λUE$Z)db
(T4-(Yd≤-4¬"RPQ'0hP_[¬$-)a∀<-H9hS1Q#ZR%$¬∀,y~5$-$λD,4→i∃$LydαRR!Q#Xh!_∀≠βQ⊗hP__3h⊗⊃PPM(XtLsQ⊗⊂HH∀∧ααβ9→dM$→I∃≤
I→tr∧xd¬∀,y~5$-*:D≤1Q M∀XwPM∀Xy∀r[⊃Q M∀Xv∪hM(XtLr6∃3λh!~$,;'Q∃∀,y→b[
6!PPM(Xs≠h~(T<Le6∩[_Q!∃∀,vGPM∀Xy∀r[∃6@hP~(T;+Q~$,<→e3
[QQ M∀XvchM(XtLr6∃30h!→d-=(Xsjβ⊗QPPMIz¬βh⊗⊗phS1Q#ZR%$∧$-8:$M¬I→tr∧xd¬∧
88∀bli→D,∀Ix4Zα
8T*¬
)t≤,JZ$*¬z)∃$,X4∧|2λ9tm∧→HU∩J¬%"Ph'1PPLi→E¬%'Tβh!_dLdYxcjβ⊃Q L4→HT|cTε hP_i∀d⎇	gRβ_Q!∀4LII5βjεAPPLi→D,uGTβ(h!_dLd→gPK0Q!∀4LIzU#jεqPPLi→D≤e7TβQ!∀4LJ:Djε⊗⊂HH∀∧ααβ5e3ααλiu∩∧i→D-≥H~E-_Q!⊂HH⊃∀αααπ5b[
∧λd⎇∩λHU4L8QPPH⊃⊃⊂Jα∧∧βZr6$α∧4z$¬∧|→jD-∩
Ir∧∃Xhd-∀λX∀$-!Q L4→IdkTε∪ h!_dLd[
Cjβ⊗QPPLi→E¬∀wTβ0Q!∀4LJ
∧sjε⊗phP_i∀d∀iπRβ∪↓⊃⊂Jα∧∧β\∃Xhd-∩	λT$Z!PPLi→D∃%πTβ∪λ⊃⊃∩αα∧π4∃MHT¬∧|→jD-⊂Q!∀4LH*D≠jε& HH∀∧ααβ8+∃$*λ9u,uD	∀r∧*Xd4-!Q L4→IDu∪Tε#_H⊃∀αααπ9∀2∧~84LJ	Yt$*¬T∧dLhYe∩∧→d∧
≤9→∀≤D~(⊂hP⊃⊃⊂HJ∧∧αβ\:HU∃_Q!∀4LH9e#jε&@HH∀∧ααβ9Iβj∧_d∧∀Lh~%J∧YxD*β$	d,<~I∃4*∧	e,l(QPPH⊃⊃⊂Jα∧∧β]∩	xb¬<z(E~∧→d∧≤|Z	tt,jAPPH⊃⊃⊂Jα∧∧β\Ldλ∃≤≤→∀∧l|HTαβRλ9∧
∀_:D-∀9jB∧Ld	DLpQ!⊂HH⊃∀αααπ8R∧hD¬$$	∀t$_8∃$⎇!Q HH⊃⊃∩αα∧π5∀CTλ∀$%(Z5~∧xd∧4M*:B¬<z(B∧Ldλ4|m	yd(h!⊃⊂HH∀∧ααβ9j@hP_i∀d≤ZπPK∪Q⊃⊂Jα∧∧β\4~*5"¬yz$"∧xd∧≤|Z	tt,jAPSXQ'2RR$
5$
*D∧|2	→e4
)_∀u"λ9t$
¬%"Ph'1PPM(YD|_⊗Fβββε↓PSXQ'2RR$
¬∀|8XE-∀T
$,H1PSZ∧∧ααj
(T"
9∀t<HT∧≤D~(∀≥$Z!PSZ∧∧ααjπJ$,;↔gT≤D~!PSXQ*$,H7 LlzhPL6↓∩d4→H4mα
(T:HQ!∀l⎇hYPL6↓∩bE(Xs
HQ!∃¬-9	 M$z
JdxZD≤@Q!∃∧⎇	!∃$⎇
↓∩`h'1PSZ%%"∧d~HU∀J4αRR!Q#Xh!→DM Q!∃¬∀	TITLE	WRTOCT *** PROCEDURE WRTOCT ***
	TWOSEG
;
;*** ENTRY-POINTS ***
;
	ENTRY	WRTOCT
	ENTRY	WRTOC1
;
;*** EXTERNAL REFERENCES ***
;
	EXTERN	PUTCHR
;
;*** REGISTER DEFINITION ***
;
	AC0=	0
	AC1=	1
	REGIN=	1			    ;INITILISATION OF REGISTERSTACK
	REG=	REGIN+1
	REG1=	REGIN+1+1
	REG2=	REGIN+1+2
	REG3=	REGIN+1+3
	REG4=	REGIN+1+4
	REG5=	REGIN+1+5
	REG6=	REGIN+1+6
	NEWREG= 15
	TOPP=	17
;
;*** START OF INVARIANT CODE ***
;
	RELOC	400000
;
;*** PROCEDURE WRTOCT
;    - WRITE OCTAL FORMAT
;    - REG1=OCTAL NUMBER
;    - REG2=TOTAL LENGTH OF OUTPUT
;
WRTOC1:	HRRZI	REG2	,14		    ;DEFAULT LENGTH 12
	JRST	OCTEST
WRTOCT: JUMPLE	REG2	,OCTRET 	    ;FIELDWIDTH = 0 ?
WRTOIN:	CAIG	REG2	,14		    ;LEAD. BLKS. REQ.?
	JRST	OCTEST			    ;NO
	MOVEI	AC0	," "
	PUSHJ	TOPP	,PUTCHR
	SOJA	REG2	,WRTOIN 	    ;MORE BLANKS TO BE INSERTED ?
OCTEST: MOVE	REG3	,[POINT 3,REG1]
	HRREI	AC1	,-14(REG2)
	JUMPE	AC1	,OCTWRT 	    ;LESS THAN 12 POSITIONS REQUIRED ?
	IBP	REG3			    ;YES
	AOJL	AC1	,.-1
OCTWRT: ILDB	AC0	,REG3		    ;GET DIGIT
	ADDI	AC0	,60		    ;CONVERT TO ASCII
	PUSHJ	TOPP	,PUTCHR
	SOJG	REG2	,OCTWRT 	    ;MORE DIGITS TO BE OUTPUT ?
OCTRET: POPJ	TOPP	,		    ;NO - RETURN
;
;*** LITERALS
;
	LIT
	PRGEND
	TITLE	WRTHEX *** PROCEDURE WRTHEX ***
	TWOSEG
;
;*** ENTRY-POINTS ***
;
	ENTRY	WRTHEX
	ENTRY	WRTHX1
;
;*** EXTERNAL REFERENCES ***
;
	EXTERN	PUTCHR
;
;*** REGISTER DEFINITION ***
;
	AC0=	0
	AC1=	1
	REGIN=	1			    ;INITILISATION OF REGISTERSTACK
	REG=	REGIN+1
	REG1=	REGIN+1+1
	REG2=	REGIN+1+2
	REG3=	REGIN+1+3
	REG4=	REGIN+1+4
	REG5=	REGIN+1+5
	REG6=	REGIN+1+6
	NEWREG= 15
	TOPP=	17
;
;*** START OF INVARIANT CODE ***
;
	RELOC	400000
;
;*** PROCEDURE WRTHEX
;    - WRITE SEDECIMAL NUMBER
;    - REG1=HEXADECIMAL NUMBER
;    - REG2=TOTAL LENGHT OF OUTPUT
;
WRTHX1:	HRRZI	REG2	,11		    ;DEFAULT LENGTH 9
	JRST	HEXTST
WRTHEX: JUMPLE	REG2	,HEXRET 	    ;FIELD = 0?
WRTHIN: CAIG	REG2	,11		    ;LEADING BLANKS REQUIRED?
	JRST	HEXTST			    ;NO
	MOVEI	AC0	," "
	PUSHJ	TOPP	,putchr
	SOJA	REG2	,WRTHIN
HEXTST: MOVE	REG3	,[POINT 4,REG1]
	HRREI	AC1	,-11(REG2)
	JUMPE	AC1	,HEXWRT 	    ;LESS THEN 11 POSITIONS
	IBP	REG3			    ;YES
	AOJL	AC1	,.-1
HEXWRT: ILDB	AC0	,REG3
	ADDI	AC0	,60
	CAIL	AC0	,72		    ;DIGIT?
	ADDI	AC0	,7		    ;NO LETTER
	PUSHJ	TOPP	,PUTCHR
	SOJG	REG2	,HEXWRT
HEXRET: POPJ	TOPP	,
;
;*** LITERALS ***
;
	LIT
	PRGEND
	TITLE	WRTBOL *** PROCEDURE WRTBOL ***
	TWOSEG
;
;*** ENTRY-POINTS ***
;
	ENTRY	WRTBOL
	ENTRY	WRTBO1
;
;*** EXTERNAL REFERENCES ***
;
	EXTERN	PUTCHR
	EXTERN	WRTBLK
;
;*** REGISTER DEFINITION ***
;
	AC0=	0
	AC1=	1
	REGIN=	1			    ;INITILISATION OF REGISTERSTACK
	REG=	REGIN+1
	REG1=	REGIN+1+1
	REG2=	REGIN+1+2
	REG3=	REGIN+1+3
	REG4=	REGIN+1+4
	REG5=	REGIN+1+5
	REG6=	REGIN+1+6
	NEWREG= 15
	TOPP=	17
;
;*** START OF INVARIANT CODE ***
;
	RELOC	400000
;
;*** PROCEDURE WRTBOL
;    - WRITE BOOLEAN CONSTANT
;    - REG1=BOOLEAN VARIABLE
;    - REG2=TOTAL LENGTH OF OUTPUT
;
WRTBO1:	HRRZI	REG2	,1		    ;DEFAULT LENGTH 5
	JRST	BLANK
WRTBOL: CAIGE	REG2	,5		    ;FORMAT GREATER  OR EQUAL  FIVE ?
	JRST	BSMALL			    ;NO - SMALL OUTPUT
	SUBI	REG2	,5
BLANK:	PUSHJ	TOPP	,WRTBLK 	    ;WRITES LEADING BLANKS IF ANY
	MOVEI	REG2	,5		    ;FIVE CHARACTERS ARE GIVEN OUT
	MOVE	REG3	,[ASCII/FALSE/]
	SKIPE	REG1			    ;TRUE OR FALSE? - SKIP IF FALSE
	MOVE	REG3	,[ASCII/ TRUE/]
	MOVE	REG1	,[POINT 7,REG3,-1]
	ILDB	AC0	,REG1		    ;GETS CHARACTER
	PUSHJ	TOPP	,PUTCHR
	SOJG	REG2	,.-2		    ;MORE CHARACTERS?
	POPJ	TOPP	,		    ;NO - RETURN
BSMALL: JUMPE	REG2	,BOLEND 	    ;FIELDWIDTH = 0?
	SUBI	REG2	,1
	PUSHJ	TOPP	,WRTBLK 	    ;WRITES LEADING BLANKS IF ANY
	MOVEI	AC0	,"F"
	SKIPE	REG1			    ;TRUE OR FALSE? - SKIP IF FALSE
	MOVEI	AC0	,"T"
	PUSHJ	TOPP	,PUTCHR
BOLEND: POPJ	TOPP	,
;
;*** LITERALS ***
;
	LIT
	PRGEND
	TITLE	READR *** PROCEDURE READR ***
	TWOSEG
;
;*** ENTRY-POINTS ***
;
	ENTRY 	READR
;
;*** EXTERNAL REFERENCES ***
;
;
	EXTERN	GETCH
	EXTERN	CONERR
	EXTERN	READI
	EXTERN	INTREA
	EXTERN	GETINT
	EXTERN	GETSGN
	EXTERN	RTEST
;*** REGISTER DEFINITION ***
;
	AC0=	0
	AC1=	1
	REGIN=	1			    ;INITILISATION OF REGISTERSTACK
	REG=	REGIN+1
	REG1=	REGIN+1+1
	REG2=	REGIN+1+2
	REG3=	REGIN+1+3
	REG4=	REGIN+1+4
	REG5=	REGIN+1+5
	REG6=	REGIN+1+6
	NEWREG= 15
	TOPP=	17
;
;*** DESCRIPTION OF PASCAL-FILEBLOCK (SEE PROCEDURE WRITEMC OF COMPILER) ***
;
	FILPTR= 0
	FILEOF= 1
	FILEOL= 2
	FILOPN= 3
	FILLKP= 4
	FILENT= 5
	FILIN=	6
	FILOUT= 7
	FILCLS= 10
	FILSTA= 11			    ;.+0  FOR FILESTATUS
					    ;.+1  FOR DEVICE
					    ;.+2  FOR POINTER TO BUFFERHEADER
	FILNAM= 14
	FILEXT= 15
	FILPRO= 16
	FILPPN= 17
	FILBFH= 20			    ;BUFFER HEADER
	FILBTP= 21			    ;BYTE POINTER
	FILBTC= 22			    ;BYTE COUNT IN BUFFER
	FILLNR= 23			    ;IF ASCII MODE - LINENR IN ASCIICHARA
					    ;CTERS
	FILCNT= 24			    ;LH= IF BINARY MODE : NEGATIVE  NUMBE
					    ;R OF WORDS IN COMPONENT
					    ;IF ASCII MODE  : CHARACTERCNT IN LIN
					    ;E AND TAB INDICATOR
					    ;RH= ADDRESS OF FIRST WORD IN COMPONE
					    ;NT
	FILCMP= 25			    ;FIRST WORD OF COMPONENT
;
;*** START OF INVARIANT CODE ***
;
	RELOC	400000
;
;*** PROCEDURE READR
;    - READ REAL FORMAT
;    - <REG1>=REAL VALUE
;    - REG2=TOTAL LENGTH OF OUTPUT
;    - REG3=LENGTH OF FRACTION
;
READR:	PUSHJ	TOPP	,GETSGN 	    ;GETS SIGN IF ANY AND FIRST COMPONET
					    ;TO AC0
	PUSHJ	TOPP	,RTEST		    ;TEST IF FIRST COMPONENT IN DIGITS
					    ;IF NOT ERROR - MESSAGE AND EXIT
	PUSHJ	TOPP	,GETINT 	    ;GETS INTEGER BEFORE POINT TO REG2
	MOVEI	AC1	,REG2		    ;CONVERTS TO ASCII
	PUSHJ	TOPP	,INTREA
↓MOVE	REG4	,REG2		    ;FURTHER WORKING FOR REAL ON REG4
	SETZ	REG6	,		    ;FOR DECIMAL EXPONENT
	MOVE	AC0	,FILCMP(REG)
	AAIE	AC0	,"."		    ;NOW HAS TO COME DECIMAL POINT
	JRST	CONERR			    ;NO POINT - ERRMR MESSAGE AND EXIT
BEHPNT: SKIPE	FILEOL(REG)
	JRST	REXP
	PUSHJ	TOPP	,GETCH
	MOVE	AC 	,FILCMP(REG)	    ;GET NEXT COMPONENT
	CAIG	AC0	,"9"		    ;IN DIGITS ?
↓CAIGE	AC0	,"0"
	JRST	REXP			    ;NO
	SOJ	REG6	,		    ;INCREMENT EXPONENT
	FMPR	REG4	,[10.0]
	SUBI	AC0	,"0"		    ;CONVERTS ASCII TO INTEGER
	FSC	AC0	,233		    ;CONVERTS INTEGER TO REAL
	FADR	REG4	,AC0		    ;ADD NEW DIGIT TO REST
	JRST	BEHPNT			    ;GET NEXT DIGITS IF ANY
REXP:	SKIPL	REG6			    ;ONE OR MORE DIGITS BEHIND POINT ?
	JRST	CONERR			    ;NO - WRITE ERROR MESSAGE AND RETURN
	MOVEI	REG5	,(REG3) 	    ;SAVES SIGN
	CAIE	AC0	,"E"		    ;DIGIT EQUAL E ?
	JRST	.+5			    ;NO
	SKIPN	FILEOL(REG)
	PUSHJ	TOPP	,GETCH		    ;GET NEXT COIPONENT
	PUCHJ	TOPP	,READI		    ;GETS EXPONENT TO REG2
	ADD	REG6	,REG2
	JUMPL	REG6	,REXP1
	SOJL	REG6	,REAOUT 	    ;DAXIMAL EXPONENT EQUAL 0?
↓FMPR↓REG4	,[10.0] 	    ;NO - TOO LARGE  ~A⊃∪-∪	%	αA¬∃β_A-¬→+
~(∪∃%'P∩\Zd4∃%⊃@btβ
⊃-$β%∃∞h∩Ylb`\at@∩@@@w≥≡ZA)∨<A'β1_@ZA5+→)∪A→2A%∃β_A-¬→+
~(∪β∨∃0∪%∞X∩X\ZD~∃%¬∨+(t↓∃
π_$b`∩Y
∨∃¬H@∩@@@w∨-∃%
→∨\@ZA¬%(A'P@}~∀$∩∩∩∩@@@w%A'PA∃+≠@A)≡A
∨⊂~⊗∃⊂4(&≤Z&B∀M∩⊗≥THH%↓↓α↓nN&<qα⊗F,
1αBe*M↓|hP&6>4p&J⊗; %2J,9P$%α↓↓↓nty↓5αt*≡εR*αJ⊗εbαRε2,(4(&lzR⊗4M∩⊗≥PJa"J⊗;	%%α↓↓↓n≥"6J∃¬2ε2V*α& 5It¬4
)_∀∀dQQ M∧z	 M$z
J`Q'0hS5%"R∧I~D-∀→J2αR%!PSXQ!∀dMAQ M¬(xTdQ `MI~Dd(~J%,t4¬"RRλjTt≥I→tr¬J*Tt~¬%"Ph!~E<@tq1aQL¬FE∞U∃∃⊂⊃e*),Kh'dg∃)P∃∃
εE≥FB∧bg*∀,Dj)∃g!FE∞FE≥U
∃⊂"l∃"i' S⊂)"c⊃i"g!QiP∃∃
εE≥FB∧bd*⊃i'∧dS*)"`CE_
;*** REGISTER DEFINITION***
;
	AC0=	0
↓AC1=	1
	REGIN0~∩D∩∩∩@@@w∪9∪)&dJNεRLz1α≡2αJ⊗≡M~R⊗J≥"ε∞hP&J⊗;h&J⊗<J0∩[⊃Q M∀Xv∪hM(XtLr6∃3λh!~$,;'Q∃∀,y→b[
6!PPM(Xs≠h~(T<Le6∩[_Q!∃∀vGPM∀Xy∀b[∃0
↓QB4Q(v/"4HXr3Bf∃m#"A~Q1mGQ4Q1i→Jl*fa B3HZtQ1gT-#!!5∪t
π ,-aQLc"G5JJH
:⊂4U∧	qH∩)jP4R(→Uλ⊂ix⊃(
E%C"NaQB4Q)Ipb-εε↓QLc"G5JJHλj3Pu	→sH∃
*3Pc!'hλλ∧¬(⊂sijQ4U∧
Q03∧
⊃h∩)j⊃1q*!"Nh∧∧λ(
(1o4HX3λ∃H→∃1#!'hλλ∧¬("
It∀
''6tQ({(⊂4d	3U⊃(x4C"G1"U∀JYPh
∧Tbj-&BXT*'T(⊂P∧BP⊂⊂⊂∞ab"`T)P)dQg⊂!$UεA∧fSk"D`PX∧V)⊃cFE∧R*fh#QD`aXαT('iU f∧DH⊂⊂⊂≥S c`j∩i"P'∃fa"iλ∨FE∧PgiDXJ*'h(
P∧DPλ⊂⊂∃lQiP⊗P∀bj⊂)Rcc⊂!∩jεE∧Sek&DPaX∧V⊂aX∧DH⊂⊂⊂≥S`ebP∩h∧ POSITIVE
POSVAL:	LDB	RAG	,[PGINT 8,AC0,8]    ;GETS EXPONENT
	TLZ	AC0	,377000 	    ;RESET EXPONENT TO ZERO
	SUBI↓REG	,233		    ;200 FOR OFFSET _@LfA
∨HA≠β≥Q∪''
4∀∪'Q4∪βεD∩X∩∩@@@w
→β$↓βεb~(∪β'⊃∪βε@$XQ%≤R∩α@@@wβ`@tz↓βε`@(@d@T(A%∞4∀∪'↔%!≤∩b!)∨! $@∩∩@@@w≥∃∂β)∪Y
A'∪≥≤@}~(∪∃%'P∪%β⊃2∩∩∩@@@w9≡@JA=-%∃U≠ ~∀%'↔∪!∀∪βεb$∩∩@@@w%M(A#Uβ_A5∃%≡@}4∀∪β∨L∪βε@$∩∩@@@w≥≡ZA∪≥
%≠9(~∀∪5∨-≤∪¬ε`∩Y¬ε`∩∩@@@w¬≥λA≠¬↔
A≥∃∂β)∪Y
~∃%∃β	2t%≠∨-4∪βε@$XbQ)=! R∩@@@wM)∨%
↓
+≥πQ∪∨AI'+→P~∀∪!=!∀∪)=! ∩X$∩@@@w%)U%≤A)<Aπβ→1$~∀l~∀vT(TA→∪Q%β→L@TTT4∀v~∀%→∪(~(∪!%∂∃≥λ~∀_∪)∪Q→
∪∪9)%αTTTA→+≥π)%∨≤A∪9)%αTTT~(∪)/∨M∞~∀l~∀vT(TA≥Q%2[!=∪≥)&TTT~(v~∀∪∃≥)%2%∪≥)%∃α~∀v4∀vTT(A1)∃%≥β_↓%
I≥πL@TTT4∀v~∀l~∀vT(TA%≥∪')HA	
%≥∪)∪=≤@TT(~∀v~(∪βε`t∩`~∀%βεbz$b~∀∪I∂∪≤t∩b∩∩$@@@@m∪∃∪)%→∪'βQ∪∨≤A=A%≥∪')I')βπ,~∀∪%∃∞z∪%∃∂∪≤VD~∀∪%∃∞bz∪I∂∪≤,bVb~(∪%∞Hz∪%≥∪≤Vb,d~∀∪I∞fz%%∂∪8VbVf4∀∪%≤hz∪%∃∂∪≤VDVh~∀%%∞jt∪%∂%≤VbVT~∀∪%∃∞lz∪I∂∪≤,bVl~(∪≥∂I∞z@Dj~∀∪Q∨! z$bf~∀l~∀vT(TA')¬%(A∨_A∪≥-¬%∪β≥PAπ∨	∀@TTT4∀v~∀%%→∨∩h``@``~∀l~∀vT(TA
+9π)∪∨8A∪≥)Iα
∀l@@@@4Aπ∨≥Y%(A%≥)∂∃$A)≡↓%β_4∀v@@@Z@y¬εb|{%→)∂∃$A-β1+
~∀l@@@@4@yβεD|tzy¬εb|A¬&A%¬_∩∀v4∃∪≥)Iα`)∧j>Z∀L

@%bBε
EHH%↓↓α↓n≡⊗%→α&:$*≡⊗I¬"5αε≠4(→*Tm∧xQ∀≠↓∃Bb[1⊃∩αα∧π5$JXR∧tXx∃$MhTβxh!~Ddx__3λJFFβββ∧∧Jα∧∧β@:q1∀d
p∧cgλ!$jεB∧fgk∪D`aXαT aXαDP⊂⊂λ≥`aXλ≥~P P)PλAC0)~∀%≠⊂≡Z,h&ε
α⊃∩c
λ¬∪j
λ∧DPλ⊂⊂⊂≠SAP
~αε∩J-~Mαεt!αN_yb∧∀~AP@L(hdhL_6JBFIRST "ONE"?
	JRST	.+7			    ;AC0 CONTAINS ONLY ZERO'S
	SUBI	AC1	,11		    ;AC1 := NR OF LEADING 0'S - 9
	JUMPGE	AC1	,.+4		    ;BITS OF EXPONENT EQUAL ZERO ?
	LSH	AC0	,(AC1)		    ;NO - SET ZERO
	MOVM	AC1	,AC1		    ;AND INCREMENT EXPONENT BY COUNT
	JRST	.+2
	SETZ	AC1	,
	ADDI	AC1	,233		    ;AC1 CONTAINS UNNORMALIZED EXPONENT
	FSC	AC0	,(AC1)		    ;CONVERTS TO NORMALIESRD REAL
	MOVE	AC1	,1(TOPP)	    ;GETS SIGN BIT AND ADDRESS
	SKIPGE	AC1			    ;SIGN BIT SET ?
	MOVN	AC0	,AC0		    ;YES - NEGATE REAL VALUE
	MOVEM	AC0	,(AC1)		    ;STORE FUNCTION RECULT
	POPJ	TOPP	,		    ;RETURN
;
;*** LITERALS ***
;
	LIT
	PRGEND
	TITLE	WRIPEC *** PROCEDURE WRITEC ***
	TWOSEG
;
;*** ENTRY-POINTS ***
;
	EJTRY	WRITEC
	EJTRY	WRITC1
;
3*** EXTERNAL REFERENCES "**
3
	EXTERN	PUTCHR
;
;*** REGISTER DEFINITIKF ***¬
;
↓AC09↓0
	AC1=	1
	REGIL9	1			    ;INITILISATION OF REGISTERSTACK
	RAG=	REGIN+1¬
	RAG1≥	REGIL+1+⊃
↓REG20~∪I∂β≤αYE-HhP&J⊗;→t&J,:&9-λYL4(M∩⊗≥QhJJ⊗≡Lq-E- h(&J,9Ut&∀*≡&9[	-T4PJJε≥3h&J⊗<J0∩[∃0
AQ@∧g"UβREG≥ 15
	PGPP=	17
;
;*** STARTMF INVARIANT COD@
@T(T∩∧v4⊂∪%1_∞%#↓AAAα↓PCXQ'2RR$
¬∀|8XE-∀T
u∀MHX0hSαhλ∧∧	(∃j)5⊃(λ∀∀r3Hy⊃(⊂iλ4C"G∀λλλ¬T∀Q1f↔0r⊂*!"Nh∧∧λ 
(1lG)@*fa"T⊂ ∂F LAAD8A¬→β9↔&~∀l~∃/%%)εbt%⊃%%5$∪%∞H∩P⊃DHI↓↓↓βZ∩,h~Te"	HTdu∩⊂FA+i∩h∧EC:	JUMPL@
β%∃∞d%e:J&R∃!%↓α↓↓n~L*2%y_E$BπPλε∧∂c"A~pπe"Bi"cIαT∧P@%%_
P$J↓↓↓↓β9D,I→d:∧)H∀d]4
$-
XZ5$DπphTIyuβPα33j@ ¬I	A@ε`∩Xλ@Dα∩@@@@]J⊗L4PJBVNDP&@$z
J@∀⊂
j⊂βHR
	S@∨∃≤∪%∞β⊂%"IyuHα(λ∧∧∞s3j(αP&"Pb 	NG BLANKS  >4⊂
BJLrQh→Yu (α@`aL∧V)"QX@		     7
⊃β$AQ_
α
*α0≥5∀∃*D⊂∧g*∪β AC0
∪!U'⊃∧∪Q_∞B@JbBVR≤BH (*z$M∀U∞D
⊃t∩A~α ∂PP	(
;
0⊗T(TA2M"⊗Jεe→↓))Ph!l4PJ2&PHh &Bα(t,@Qβ"@↓A5∩5	H ∧ki∃)"`@
∃∃⊂(∀'abb∃i"P+T*)"`H∃∃∃εB∧j+gTbcFE∞FE≥U
∃⊂"g∃)(Vh∪dg")H∃∃∃εB≥FE∧QdεTRY	SRTREA~∀%⊂~R∃H&NJ%∩∃D∀PJ⊗ 5J+⊂M≥*J$+⊂Q'0hSαjJE$⊃2∃λZSP3∧
Q1Q*(3Pq*4λ¬∃∃βE_
	EPTERN	PUTC@B
	E@1Q%≤∪]%)∨!8~∀&-BRεJpJP≥∃J8tphαB1+
⊃0	'αii*'T'αE∧Ql*"i∪α	TOOSML
	EXTERN	WRTBLK
λ	E@1Q%≤∪]%)∪≥P~∀`,hQe))RαJε≡M~RεI∧"⊗~&tJR&>p∧αRR!Q#Xh!_∀βQ⊗hPα00f↔",#!!4Q1i→LεDXBD@P⊂λ⊂≥dg∩j 	LISATIOL∧A∂↓%∂∪M)β%'Qβπ,hP&J⊗;h&J⊗<J0∩[⊃Q M∀Xr∪hM(XtLr6⊃3λh!~$,;'Q∃∀,y→b[
6!PPM(Xs≠h~(T<Le2∩[_Q!∃∀vGPM∀Xy∀`%l*`~βEi"QZ↑Di⊃cdg¬LUZFEαi"c[∂Di"cRg∃XUMεA∧g⊃ki"cOP_ZFB∧j'h∀≡@	17
3
;*** START OF INVARIANT CODE ***¬
;
↓RELOC	4000 0
0⊗~(vTTT↓!%∨π∃	+%
↓+%)%∃α~∀v@@@Z↓(∞J&$)αJ⊗aα~>∀jεP4SY↓↓↓αiαJ⊗9	vJ⊗aαZεe*∀4)X↓↓↓↓hαJ⊗≥⊃jR>Raα2⊗t:R!α|1α>VαJ¬- Q'2αα∧¬R¬∀Xv3l@⊃3QjIλ∪qDλTP0jI3sC!'c"Uj*∀Q,G∧d!)⊗$@i"QYV→∧@P⊂λ⊂≥b"Q jf*λ&"g#U$⊂⊂@6
WRTRE1:	HRRZI	REG3	(123456		    ;D@
βU→(A
1∨β)∪9∞A%¬_~∧∪)%'(∪]%)%∧~∃/%Q≠β(t↓'∨∃_%%β∞j$X\Vh$∩@@@w⊂⊗>∀)α2⊗"&*≥¬R⊗J==→αJ⊗α~T-≥AQ LlzhTHL_6Jb&∧ HJ∧∧αβ]_Z2αj
z$M⊃(∃	λαfP'UjεE∧T*id%αj'h(αV( ∃TCHR
	SOJG	REG4	,.-3		    ;MORE LEADING ZERO'S BEFORE POINT ?
	JUMPLE	REG4	,MATEJD 	    ;NO - MORE DIGITS BEFORE POINT ?
	JUMPE	RAG1	,.+7		    ;IANTISSE EQUAL ZERO ?
	LDB	AC0	,[POINT 9,REG1,8]   +NO  ~A≥(A≥∃1(A	%∂∪(~(∪)	4%%∞b$Xnnn@``@∩@@@wI')hA)⊃∪LA¬∪)L~∀&LjV2$M∩⊗≥DJaEH4PJε∩∩HJε
@Ja↓AλHI↓↓↓βZ∞.:4*JRM¬""ε5¬"=αε≤~&$4PJBVNDP&R>¬%2BαZDE!Q M≤y(pM∀Xv@JbeV`HJ∧∧αβ\Yz$*∧I_tM%4λ$,4z(R¬∧y→e"∧j)tj¬(Xs
βqQ LUYZ∧d(~(T; ∃IT
$YhBJ∧∧αβ\itαj∧Yz$*∧I_tM¬4λ$,4z(R¬∧y→e"βqQ LlzhTHL_6Jb&∧ HJ∧∧αβ]_Z2αjλz$M∧Z4∧|@Q(⊗HZSh∪jZβ"B*
4r∩A~∪t∀↓∃∀⊂
j⊂d)εEαice#Bi"cJαV∪⊗HCE&`j⊃dεD: POPJ	TOP@	,	
WRTREA: JUMPLA	REG2↓,REARET 	    ;FIELDWIDTH =`v~∀%!+'⊃(∪!∨!@∩Q/%Q_∞B9I↓↓↓βZN⊗R~αN&≡p∧∧)5λ⊂)hλ∀∃*Jh⊃R(Yα"+dQ*$⊂*∪FE∧DBD@P⊂λ⊂≥P)⊃cZFEαibb-αi"c[αV∧DPλ⊂⊂≥j∪P)`k⊃P""aRd`f⊂⊃l('g⊃g*εEαe*fh∪∧i"cLDV↔∃LDDP⊂λ⊂≥k S*bP"Th¬AL ZARO ?
	MOVEI	AC0	,555555 	    ;YES % REH≠	$A∪PA∪≤A¬ε`~∀%∃%'(%+%)
_∩∩α@@@wβ9λA/%%)αA∪PA∨+(4∀∪πβ5_∪%≤b∩Y6D`\a:∩@@@w%β0A-β→∃*A'⊃=+→λA	
A2-~MαRD*1↓Eαq@4!→%∃≥A~D|@pR1a⊃"(λ∧∧∞p3HD⊃tQ(~⊃4H	ZH⊃4*X3λ∃	λ3H%fβ"B(_33α*(1l"%Kl+DQ"B2J*uα3IzpstA⊃"(λ∧∧∞sSj@P!gi∀"ab&⊗P('iRj 	ONED
	FMPR	REG1	,[10.0] 	    ;IT'S TOK SMALL
	SOJA	REG6	,.-3		    ;EXPONENT BECOMES NEGATIT - CHACK AGA
		↓		    ;IJ
TOKBIG: FDVR	REG1	,[10.0] 	    ;REAL VALUE AS TOO LARGE
	AOJ	REG6	,		    ;EXPGNENT BEAKMES POSITIV
	CAML	REG1	,[10.0] 	    ;STILL TOO LARGE?
	JRST	TOH∂¬∪≤∩∩∩@@@w3∃&~∃≥=+π∂$hA→	∧%%∞d$Y7!∨%≥(@p1%∞b0q:@@w∂	LA¬∪≥¬%2Aa!∨≥9(~∧∪M+¬∩∪I∞d∩0d``~(∪)→4%%∞b$Xfnn@``@∩@@@w
→β%LA1!=≥β≥(4∀∪→' ∪%∞D∩XQ%∃∞dR@$@@@@m'⊃∪
Q&A≠β9)∪''∀A¬2A	∪≥β%dA1!=≥≥(↓_~∀∩$∩∩∩@@@w→(~∃/I)
T%πβ∪≤%%β∞f$XbdfPjl@∩@@@w→∪1	Iβ_A=$A
→=β)β≥≤A%β0@}~∀%∃%'(%/%)
1~∩α∩@@@w→→∨β)%→εA%∃β_~∀%≠∨-$∪%∞H∩XQ%∃∞jR@$@@@@m
∪!⊂A%β0@ZA∂∃(A
∨I≠β(~(∪'+¬$∪%∞H∩XQ%∃∞fR@$@@@@m%∞f↓π↔≥	¬∪≥&A9$A∨↓	∪∂∪Q&Aβ
Q$A!=∩~∀∩$∩∩α@@@w≥P~∀&U*6B0M∩⊗≥XJa9-\HI↓↓↓βZ⊗bB|r⊗:Q∧r⊗≡ε$JP∩βqQ LE*)⊂M∀Xv@JC∃
$,;e⊃∩αα∧π4t⎇t
$,;Dλ4|UH→∀e~	j"∧|dλDL<~J2∧∀Xiu⊂h!⊃⊂HH∀∧ααβ4
∧|LjAPPL8→∀<(~(T;⊂∃F∩E∀XvBHJ∧∧αβ\iz$l
D	D
∀xT∧,TzXtBβqQ LU*:@M=*Hddx⊃⊃∩αα∧π4tz¬T¬-∀~HU~∧iIt
$→hr∧4z)T
"	_b¬∧z:4Hh!⊃⊂HH∀∧ααβ8)D(h!_4LQ_∀≠∃FS++VVRJ∧∧αβ]h→E,*λZ∃,D$-∀tπphP~8U%P~(T;(∃A⊂Jα∧∧β\tt¬R∧tt	D,I→d:¬(Z$z=1Q LU*:@Jr6QPPL8→∀<(~(T;⊂∃F hP→*%≥ ~Itm≤YAPPL
*$HM(Xs JF⊃⊂Jα∧∧β\|hT¬T
)t∧∀iz$*¬	y∀u Q!∀l]iQ∃∀vQ∩e∀Xv`HJ∧∧αβ\jYT∀-$	t2∧HX∀$Lht¬D-)z2=_Q!∀l⎇hY⊂M∀Xv`JcvfS#≠$↓∩αα∧π5$z
(Tl,X(U∩¬Iλ∃"∧it∧-E	yd,uD
4DIAPPH⊃⊃⊂Jα∧∧β\∀TλtM4Yd∧⎇-AQ M≥X)⊂M∀Xv Jc∃
$,;E⊃∩αα∧π44⎇$
∧|LjD∧tDλDL<~J2∧∀Xiu∀*
	tLUAQ LU*:@M=*Iu- Q*u∃$iIsR∧
*$HM(Xs JF⊃⊂Jα∧∧β\|hT∧$Ly~B∧∀Xiu∀*λ	tLUAQ M≤ZK M∀Xv J`⊃∀αααπ9d⎇∀X→DeJ	ir∧dX_DLTtλ$di:0hP~IDdλ~(T; ∃FCββ∧εαJ∧∧αβ]9_tr∧Z~Tb	Y∀u-4πphR∧∧ααα∧∧∧U∃:Dααα∧∧ααα∧∧αααe62αα∧∧ααα∧∧ααα∧∧αβ\iqPPLYzd,H~(T;⊂∃F⊂HJ∧∧αβ\yhR∧dX_DLTtλ$di0∧4⎇$
∧e-1Q"αα∧∧ααα
:T∀J∧∧α¬∀XvRαα∧¬CλH∀∧ααβ8_4≤⎇YjB∧Ldλdm∀X~B∧dYhu$@Q!∀_xPM∀XvPJCq⊃∩αα∧π44⎇)X∃"∧)_r∧,izT<B¬qPPL**5 MIyu≤lA⊃⊂Jα∧∧βLTt¬R¬=)~D-~∧%"$	th	→β*'P⊃'i&`U⊂ g"λ)αE∧BD@DPλ⊂⊂≥bU*i'εB∧fgk⊃dDi"QYDV⊗M∀)"cMT@P⊂λ⊂≥b$Qdj)P⊂ ¬HIND POILT
	AAIE	AC0	,555555 	    ;VALUE EQPβ_↓5β%≡}~∀∪M)4∪I∞j∩0∩∩@@@w≥≡ZA:zα2⊗εADING BLANKS
					    ;<REG3>: NR OF DIGITS BEHIND POINT
					    ;<REG4>: NR OF DIGITS BEFORE POINT
					    ;<REG5>: NR OF LEADING ZERO'S
WRTOUT: PUSHJ	TOPP	,WRTBLK 	    ;WRITES LEADING BLANKS
	PUSHJ	TOPP	,WRTSGN 	    ;WRITES SIGN
	PUSHJ	TOPP	,WRTMAT 	    ;WRITES MANTISSE BEFORE POINT
	MOVEI	AC0	,"."		    ;WRITES DECIMAL POINT OUT
	PUSHJ	TOPP	,PUTCHR
	MOVEI	REG4	,(REG3)
	PUSHJ	TOPP	,WRTMAT 	    ;WRITES MANTISSE BEHIND POINT
	CAIN	REG6	,765432 	    ;WRITE EXPONENT OR NOT ?
	JRST	REARET			    ;NO
	JUMPN	REG6	,.+3		    ;EXPONENT EQUAL ZERO ?
	MOVEI	REG2	,4		    ;YES - WRITES BLANKS INSTEAD ZERO EXP
					    ;ONENT
	JRST	WRTBLK			    ;AND RETURN TO SUBCEPROGRAMM
	MOVEI	AC0	,"E"		    ;YES - WRITE E OUT
	PUSHJ	TOPP	,PUTCHR
	MOVEI	AC0	,"+"		    ;WRITES SIGN OUT
	SKIPGE	RAG6			    ;EXPONENT POSITIV
	MOVEI	AC0	,"-λ∩∩@@@w≥≡ZA/%%)αA≠%_
VM¬~&≡_hP&BV≤B(&R⎇α@%2¬*R∞"⊂H%↓↓α↓nNJM"⊗Mα⎇*QαNL:8$(Lj>Z4M∩⊗≥DJbJε≥0H%↓↓α↓n∩⊗TJ6ε1∧*bB≡t*0∃"
Ir¬∀Xr∩αjλiu∩¬z)∃$(Q!⊂HH⊃∀ααα¬9∀`*⊃1q*!"B3)zQ2"(_lα+∧_⊃∧DH⊂⊂⊂≥U'P+i∩h∧E ON@
AT*J=αL1α⊗B∧z2,j@∧d-:4¬ h!⊃⊂HH∀∧ααβ9λ∀rβ⊗!P@L8→∀<(~(T;λ∃F∪⊂H∀∧ααβ8[¬∧|hYe"∧z(T
$Z β⊂Q!∃¬-9	 M∧z
JEλ¬5λ→∀B"$∧λλ∞iih 
@i$j"H'c"P⊗ ¬RO MP(~(∪∪∨-∃∩∪%≤d∩Xd$∩@@@s
∨%5β @ZααR↑≥∧"&≡&%→α:>∀jε"∩Hh(&∞J≡∀&∀*≥D∃F∪⊂H∀∧ααβ9hT,"	Yu∀(⊂
$⊂dε ONE DIGIP /
λ	MOVEI↓REG2∩XD∩∩@@@w
≡ZA
∨I≠β(A=_
2e∧z0∀(⊃∩(y5β"A~∃0	d∩∧j'h∀∧V+i∃$g"⊂αP⊂⊂⊂∞hπRITES DE@π∪≠β0Aβ!↓=_
,j@∧`:αjεE∀ ¬ARET: @!=!∀β)=! ∩X$∩@@@p∞J⊗αJU∀pQ'0hSαjJE$⊂ε$j⊃i f)H∃∃∃εB≥FE∧S$jεEαh)#bSα@λ~∀_∪)∪Q→∀~z%$Lh@αRR$
¬∀|8XE-∀T
u∃$→jBαR%!P@MJyu≤,qQ#Hh'5"RRλYe%∃∃Z∧lLhJ2αR%!PSXQ!∀,@U∀V!~tU∩)@*εE∧Qe*),Bii*$Sα1~∀l~∀fT(TA⊃Q%≥β0A%
∃%≥π∃&@@)RP4)@1Q L-
HU∀p~
U$≤λ!P@LXε∃λZSB5	YβiffβE	EXTERN	Tπ%)¬1⊗~∀∪∃1)¬8∪'%)M∂≤~∀%1)I_λ&↑∃"0≥∧aQ#Hh'1"RRλ∧Q(y4q⊃*$⊃⊃1I→β$j$SβH@T(T∩∧v4⊂∪βε@z∩`~(∪βε@λπPKλβ"B*(1r3GQ,""!∀λλλπdg$j∩d∧ASATION↓_∞→αα(T<M8HU∃≥H_4Xh!~$,;Q~$,<→`
f⊃"B4HXl/"*(1r3E6*l#!!4Q1f'αDi"Qdg∃@1+2¬
	R@∞ft∪%∂%_	-EXε0hPα4Q(v∂"4HXp3@∃LUZεEαi"cJODi"cRg∃XUMFA∧i⊃c[⊂≥	RAGIN+1+&
λ	NEWRAG=11~∀%)∨! t∩bn~(v~∀v(TTA≥"εJQ∧z→αεu2εJ&rQα∞|"∃↓%% hS1Q M∀YIt1-εεβ"G1"NjE%H⊂λ)∪abb*T P ↔RTINT
;    - GRIP	
A%≥)∂∃$A
∨I≠β(~(r@@@ZA%≤b{∪≥Q∂$↓(
ε2,(4)@4∧αααT
$,;'ZD⎇∧→D∧d,hzDB∧xd∧m5∀∃*A"Nc!*tU∩)F,B2
*VR"*(1lB%F-α"$∧λλ∞j85λ⊃λXP53
D⊃⊃3Hz∩λ&!"UtJI3U∞D	U34	H"4Q(v@+∩)j∀Q5∧↓(λλ∧πqR1)H∃r1
Iλ∂ επc"B*
4r∩A~∪t∀↓∃∃tU	@h'εEαe*fh⊃Di"cLDV↔∃MεE∧dQ$k$DT cXDK_Y∧DH⊂⊂⊂≥Qbj)P∪'kbiU⊂"$cRj⊂*'H)"cYβEh*Td∧j'T(∧V)⊃cY∧DH⊂⊂⊂≥Pg"⊂)Pk"aP∩h⊂$gλ(*adf$ijβE∧`gR Di"QZ∧V↔YFE∧U)'"DT"cZ∧K≠[[[M[P∧Pλ⊂⊂≥k⊂f*bP⊃hj`fλ_∨FEαe))jαW∃Z∧BDP⊂⊂λ≥g'FB∧ibj⊗∧i"cL∧V∧DH⊂⊂⊂≥VbiP⊗H(*`∀S ONE ZERO IJTO PUSH-LIST
	PUSH	TOPP	,REG2
	AOJ	REG4	,
↓CAIL	REG5	,(REG4) 	    ;FORMAT LARGE EH
∨+≥⊂@}~(∪∃%'P∩\Vl$∩∩@@@w3L~∀β)10λ&J,9P%1#↓AAAα%↓↓α↓n∞∩,
JMα≤J≡)α∀JQα&2αε:DhP&N>T`&J⊗; %19[_$%↓α↓↓nJ-~⊗Qα¬*N!6dJNP4PJB>@M"6B@JbJε≥⊂h(&*∃~P%9k⊂4(→*%≥ ~It`:s3α!⊃(λλ∧πutR*H4hλE$H	td	3U∪dλStS(~λ⊂3HD∀Q5
ZSPc!!4u0I⊃4Q1fQ+
∀HXm
(↓∀λλλπ8q1∀d	U30HZH∪qD	⊃01	→Qh⊂IH3RtaQ@33jH2"4HXlB+¬
Q1m%∀α(λ∧∧∞qtI~α"a&⊂g%Vi∪h¬TINE WORKS ON REG∩
∪!U'⊃∧∪Q≠! ∩1+%)¬1⊗@∩@@@w∂I∪ ∩⊗~αα2εtZMαε2αε:DhP&BVα9∧PMIz¬JJz%%≤y`λ↓∀λλλπ~βi$j⊃iP!dQg⊂⊂~  ∧@DA%A!∨M∪ ∩~eB∩j$	∀0H!⊃⊂HHα(λ∧∧∞sQ(x5∩5AQ@∧h'T∧j'h∀∧V aL∧@	    ;GETS DIGIT IL∧A!-~!62M~P$!_∀$∧α"0(⊗α+λF∧@"(∧∧λ
pi@dεVERTS DO ASCII
∀∪A+'↓∀%)∨!$Y!+$~"H⊃∀ααα¬:u∀MHZ2¬$α⊃3$	u0
εB∧ige⊃Di"cM∧V↔-3	∩@@@w≠=%∃α$J≡&R~↓|4*LrRJ⊗α@∞D
∪t∩A~α ∂PP	(		     79~@@5¬∩⊗@%X∧SAQL¬FE∞β*** LITERAH	&@(TT4SX4(→I∃ HαB4
(βbg"βEββ∧j$j∪ ¬∪%∃β	%αQ))αα
$`8q1∃*(αP ∩EAD@∩@(TT4PJR↑≡≤*≤4)Xh ∪ZαJJDλ3Q∀K∃αh'dS*)P∃
∃
;
∪9)% $M∩⊗ε∩Hh!l4SY)))∧*bR⊗α)d@λ⊂	"Q i"g⊂biP∃
∃
;
∪a)⊗JpJ≡⊗R≤:0⊂HαB1+
⊃0	'αcb`∀IL¬(~∀%1)I_λ&∞|r⊗JHhP&⊗@
HU∀p~*D-≥AQ#@1 N`∃
∃⊂ ∩EGIS@)∃$A	→∪⊂~&$J0≤@H
JE!α@
;
λ∧∪βε@z∩`~(∪βε@λπPKλβ"B*(αcdg∂DXDDBP⊂⊂⊂∞βINITIH	&≤
R&>p∧∧`8H⊂	"Qdi`∀ERSTACK
	REG=	REG@∪≤αYD4!~$,;↔Q∃∀1r3E6*hλFBα	REG28
∪%∃∂∪≤Vβ	-HQ!∃∀1lo!~Q1r)@∃XU@3
∪%∃∞`z∪I∂&p¬3
[AQ M∀Xp
'Q4Q1i→β∃P@+5
∀∪I∞l@hJJ,y→b[
4aP@LhZu∀1o ⊂X¬~∀%)∨!βh%E\hQ`_h'0
E%H⊂	j⊂i*⊂'Q⊂ 	NVARIANT CODE  ∀T(~∀`,hP&J⊗dz_KFεβββ↓Q#@1 N`∃
∃⊂ ⊂RLππ	U%∃αα(T$α#"GP⊂⊂⊂P)"`Q⊂ 	NTEGE@$αα0∃,X(U⊂@ N`⊂λ⊂⊂⊗@ <REGD|s∪≥Q∂⊂∧¬ (4R0(	⊃#"GFE)"Pb 	:	PUSHJ	P	>¬% $xZE≤<d↓∩αα∧π4<-J4¬≤Ly`λλ→β"⊂#∩i)b @π⊃β$4⊂λ&BαZ4DPα5∪j
α+∀JHαib∧BP⊂⊂⊂∞βP	≥!α&→∧2&JN ∧∧9βb`⊂OL¬⊗: α& 2λI∀<MJ1P@MλZ4DPα5∪j
α+⊃hZ⊂∧g*λ∧P⊂⊂λ≥cbj∀P 	NTEGEB↓)≡A∀*≥HQ!∃≤\~λPM∀Xr0HHα(λ∧∧∞pr(yβ⊂"hU`f⊂&RdεUC ?
	MLπ%≤∪I∞d∩1%⊗≥⊂H%↓↓α↓`≥LX∧h¬T⊂π"cPh"P$SαTEGERλ
∀∪)
πλ∩D`∩Yπ=_
-* λ↓∀λλλπ→βk"i⊃&'kP⊂αIT SEPλ@@xh &6⎇2⊗ (α4Q(v@∧V∀∀ ¬G1$@∩@@@w!-"Mα→jD,<X ∧L@H⊂λ&⊂abP&∪βADED T@≡AI∞b~(∪!∨!(∪ ∩z
J`Q'0hSαjJE$⊂ε$j⊃i f)H∃∃∃εB≥FE∧S$jεEαh)#bSα@λ~∀_∪)∪Q→∀~JEL@t∪@⊂
∃∃⊂(∀'abb∃i"P*∃,gh'λ∃∃∃εB∧j+gTbcFE∞FE≥E
∃⊂"g∃)(Vh∪dg")H∃∃∃εB≥FE∧QdεTRY	P	)3=!≤4SX4)@5%"R¬(XtM≥HZ"∧∧Xi∀`)5∩3i@⊂⊂
**
0⊗~(∪βε@βh%@4PJε
EhID4!~$,<α3@≡BX@DDH⊂⊂⊂≥RdεITILISATIH∂9∧z→αJ,:&NR-∩NBε≤X4(~(T;h~(T<Le0!Q@∧i"QXX
	REG@∪≤αYE-DhP&J⊗8ε#hM(XtL@Jh ∃L∧A∧i⊃cYP≥	R@∂∪8VbV@_h ⊂M(Xs#@ ∧i"Qdg∃@1+0
	R@∞jt∪%∂%_	-EXεPhPα4Q(vM"4HXp∧g+1+6
	H
=∩⊗≥uβ	T4!~D`:∀λ∞DLXπ
;
0⊗T(TA'$
JQα|1α&:αh∃∀L→jB∧≤βq⊃$¬JJC!≥FE∧T ¬LOC	0λ`@β↓A@4SX4)@5%"R¬λ∧Shbb*i⊃P**,SβP@≤~(p
↓↓α↓5αBα)tm¬D
∧
≤8→B¬-8Z"∧Ld
E%JY→e¬-AQ#@4λλλ∧∧∃∪h		4h∀
)qtP)T	TITLE↓OPEN *** PROCEDURES RESET AND REWRITE ***
	TWOSEG
;
;*** ENTRY-POINTS ***
;
	EJTRY	RESETF
	ENTRY	REWRIT
	EJTRY	TMPBLK
;
;*** EXTERNAL REFERENCES "**
;
	EXTERN	SETEOF
	EXTERN	GETCH
	EXTERN	GET
	EXTERN	ASTOSX
	EXTERN	WRTPC
	EXTERN	TMPTST
	EXTERN	WRTFNM
	EXTERN	GETLN
↓EXTERN	CHSFIL
;
;*** REGISTERDAFINITAON ***
;
	AC0=	0
	AC1=	1
	REGIN=	1			    ;ILITILISATIMN OF REGISTERSTACK
	REG=	REGIN+1
	REG1=	REGIN+1+1
	REG2=	REGIN+1+2
	REG3=	REGIN+1+3
	REG4=	REGIN+1+4
	REG5=	REGIN+1+5
	REG6=	REGIN+1+6
	NAWREG= 15
	TOPP=	17
;
;*** DESCRIPTION OF PASCAL-FILEBLOCK (SEE PROCEDURE GRITEMC OF COIPILER) ***
;
	FILDAT= 1			    ;FLAG TO TEST FOR TEXT-FILE
	FILBIN= 17			    ;FLAG TO TEST FOR ASCII-MODE
	FILPTR= 0			    ;LH= PASCAL FILE FLAGS
					    ;RH= PTR TO COMPONENT
	FILEOF= 1
	FILEOL= 2
	FIHOPN= 3
	FILLKP= 4
	FILENT= 5
	FILIN=	6
	FILOUT= 7
	FILCLS= 10
	FILSTA= 11			    ;.+0  FOR FILESTATUS
					    ;.+1  FOR DEVICE
↓				    ;.+∩  FOR PGINTER TO BUFFERHEADER
	FILNAM= 14
	FILEXT= 15
↓FILPRO= 16
	FILPPN= 17
	FIHBFH= 20			    ;BUFFER HEADER
	FILBTP= 21			    ;BYTE PGINTER
	FILBTC= 22			    ;BYTE COQNT IJ BUFFEB
	FILLNR= 23			    ;IF ASCII MODE - LINELR IN ASCIICHARA
					    ;CTERS
	FILCNT= 24			    ;LH9 IF BINARY MODA : NAGATIVE  NUMBE
↓				    ;R OF WORDS IN COMPOJENT
					    ;IF ASCII MODE  : CHARACTERCNT IN↓→∪≤~(∩∩∩∩$@@@@m
Aβ≥⊂A)β∧↓∪∃	∪
β)∨$4∀∩∩∩$∩@@@w%⊂z↓β		%∃'&A∨_A
∪%M(A/∨IλA∪≤↓π∨≠!=≥
~∀$∩∩∩∩@@@w9(~∀∪→∪⊃π≠@z@dj$∩∩@@@w
∪I'(A/=%λA∨_Aπ∨≠A∨≥≥P~∀v~(vTTT↓π∨≥'Qβ≥)&TTT~(v~∀∪Q≠!'∪hz@d`@~∀v~(vTTT↓β		%∃''&TTT~(v~∀∩9∃¬
t∩bdb4∀∩]∃	%_z$hh~∀l~∀vT(TA')¬%(A∨_A-β%%β≥(A
∨	
~(v~∃)5!
→∞h∪1/λ$`∩X`4∃%'→→∞t∪a/λ∩`$X`~∃Q≠!¬→,t∪'∪a¬∪(∩<@@@@@↑~∀%∪↔/λ$`∩X`4∀v~∀lTTTAM)β%(↓∨A∪9-β%∪¬≥(Aπ=	α@T(T~∀v4∀∪%1∨ε∩h@````4∀v~∀lTTTAA%∨π⊃+%
AI')_~∀v@@@ZA=!≤A∧A
∪→∀A
∨$↓∪≥!+P~∀v@@@ZAIβλ@E'(Aπ=≠!∨≥∃≥(~∀l@@@@4@y%≤|{
∪1
S¬→=π⊗~∀l~∃%M)t↓⊃%%5$∪βε`$Y
∪→	
⊂Q%∃∞R∩@@@w∪9!+(A	+

HA⊃β⊃$Aβ⊃	%'L~∀∪'∃)∨~∪I'
→≤∩∩∩@@@w%∃'(A%≤A!%=∂%'L~∀∪!U'⊃∀∪Q∨! ∩1%∨!∃≤∩∩@@@wπ1∨'
A¬≥λA%∃∨!≤↓
∪→
4∀∪≠∨Y∩∪βb∩Y∂∃)→≤∩$@@@@mβ		$↓
∨$A¬'π∪∩5≠∨	
4∀∪⊃→H@∪βε@∩Y
∪1!)$QI∞R∩@@@wQ1([→∪→
}4∀∪)%9
∪βε@∩Y
∪1	β(∩$@@@@m'↔∪ ↓∪A3∃&~∀∪5∨-∩%βεb∩1∂(∩$@@@@mβ		$↓
∨$A	∪≥β%d[≠∨	∀~∀∪'-∪!
∪Q≠!
→≤∩∩∩@@@w)∃≠!π∨I
[
∪1
A∨!∃≤}~∀%∃%'(%)≠!'- ∩∩∩@@@we&XAM↔∪ A1∨∨↔+@~∀∪'-∪!≤∪→∪→∨_Q%∞$~∀∪!U'⊃∀∪Q∨! ∩1%'→- ∩∩@@@w∂<A→∨∨-+ ~∀%∃%'(%')=∩∩∩@@@w∃%%∨$↓∨≤A→=∨↔+ ↓∨$A∨A≤~∀%1π(∪→∪→β≤!%∞R$∩@@@w'(↓+ A∪9!+(A	+

HA%∪≥≤~∀∪'-∪!α~(∪∃%'P∪')∃∨∩∩$@@@@m≥≡A
%→
A
=$A≥∨9	∪%
)∨%2↓	-∪
&~∃Q≠!'↔@tA'Q5~∪)5!
→∞$∩∩@@@w)5!π∨%∀A∨!8A
∪≥%'⊃λ4∀∪!+M⊃∀∪)=! ∩X!βεbR$∩@@@w∂(↓
∪%'PAπ∨≠A∨≥≥P@Q∨$↓π⊃β%¬π)$$~∀∪!=!∀∪)=! ∩X4∀~∃%∃'→↔ h∪!+' ∪)∨!@∩Y
∪1!!≤QI∞R∩@@@wMβ-
AA!≤Aπ1∨¬¬IλA¬dA→∨∨-+ ~∀%1π(∪→∪→→↔@Q%∞$∩∩@@@w→∨=↔+ ~(∪πβ∪∧~∀∪β=&∩Zb!)∨! $~∀∪!= ∪)∨A ∩Y
%→!!≤!%∞R$@@@@m%')=%
A!A≤~∀∪A∨!∀∪Q∨! ∩0~∀~∀l~∀vT(TA!%=π	+I
A%]%∪)
4∀v@@@ZA∨A≤Aα↓
∪→
↓
∨$A=+)!+P~∀v@@@Z@q%∞|u
∪→
5¬→∨π,~∀v~)%/%%(tA⊃I→5∩∪¬ε`∩Y→∪→¬
 Q%∞$∩@@@w∨+)A+(A¬U

$↓⊃β	∃$Aβ	⊃$~∀∪M)5~%%'
1∞∩∩∩@@@wI/%∪Q
A∪≤↓!%∨∂I'&~(∪!+'!∀∪)∨A ∩Y%∃∨!≤$∩@@@wπ→∨M
Aβ≥⊂A%∨A≤A
%→
~∀%β∨'∞%
∪→=Q%≤R∩∩@@@wI%∨$A=≤A∨!∃≤@}~(∪∃%'P∪%/∃%$∩∩$@@@@m3&~(∪!+'!∀∪)∨A ∩Y%∃/≥($∩@@@w∂≡A∃≥)$4∀∪∃%M(∪%]%$∩$∩@@@w%%=$A∨≤↓≥)H~∀∪1
(∪
∪1∨+(QI∞R∩$@@@@m'(AU A¬+→
$AI∪≥∞~(∪!∨!(∪)∨!@∩X∩∩@@@w=⊗@ZAI)+%8~∃%]%$t↓∨+)'Q$∪7βMπ∪4↑4∀J}∪9≡Aβπ
'&AQ≡A∨$↓≥≡A	%'⊗A'Aβπ
A→∨$A
%→
@←t~∀∪!U'⊃∀∪Q∨! ∩1/%)
9~~∀∪=+)')H∪7β'
∪4↑t↓%%∨HA∪≤AI/%∪Q
←:~(∪∃%'P∪/%)Aε~∀~)%/9(t∪!U'⊂∪)=! ∩Y→∪→!!8Q%∞$∩@@@w'β-∀A!!≤↓π→∨¬	%λ↓¬2A9)$~(∪1π(%
∪→9(Q%≤R∩∩@@@w9)$~(∪πβ∪∧~∀∪β=&∩Zb!)∨! $~∀∪!= ∪)∨A ∩Y
%→!!≤!%∞R$@@@@m%')=%
A!A≤~∀∪A∨!∀∪Q∨! ∩0~∀~∀l~∀vT(TA!%=π	+I
A)5!π$~(v@@@ZAβ→1∨πβ)∀A'!β
A
∨HA)≠@[π∨%∀A¬+
→$~∀l@@@@4A∪''U
A)≠Aπ∨$[U+≡~∀l@@@@4A
β↔∀A¬+
→$[⊃∃β	$4∀v@@@ZA!I!β%∀A∨!8A
∨$↓	∪'⊗5
∪→
↓∪A+U≡A
β%→&~∀l@@@@4@y%≤|{
∪1
[¬→=π⊗~∀l~∃)5!π$t↓'↔∪!8∪%'→→∞∩∩$@@@@m%'P}~∀∪)%'(∪Q≠!'.$∩∩@@@w≥≡0A%/I∪)
~(∪⊃%%h∪βεb$X]∃¬→∩∩@@@vcM(A
%∃
A/∨Iλ~∀∪!%%4∪¬ε`∩X9∃¬%0@∩@@@w≥⊂A∨AU'$[
∨%
~(∪πβ∪≥
∪βε@∩Y)≠A'∪4Q¬εbR∩@@@w]∪→_A	+

HA
∪(|~∀∪∃I'(∪64∀∪β	⊃∩∪βε@∩Y)≠A'∪4@$@@@@mπ∨%
↓≥	∃λA)≡↓βεb~(∪π∨%∀∪βε`$X∩∩@@@w∂∃(Aβ≥=)⊃$↓⊗~∀∪)%'(∪Q≠!$D∩∩∩@@@w¬U→→'⊃%(~∀∪)%'(∩8Vc:∩$∩@@@w¬βπ,A∪≤A1∪≥
~(∪⊃%%4∪βεb$Y)≠!	→⊗VB$@@@@m¬+

∃$[β	⊃$A)≡↓π∨≥(8[¬→∨
⊗~∀∪M∨&∪)5!¬→⊗,b∩∩@@@w!I∨!$↓∪∨/λ5
∨%≠¬(~∀∪5∨-∩%βε`∩0[)≠!M∪4∩@@@w≠¬0A%¬λ[→9∂)⊂~(∪⊃%→4∪βε`$Y)≠!	→⊗Vb$@@@@m)≡Aπ=≥(\[	→∨π⊗4∀∪⊃%1∩∪βεD∩Xhh@n``@$@@@@mβ'π∪$[¬3)∀[!)$4∀∪⊃%H∪βε`$Y
∪→M)αQ%∃∞R∩@@@wβMπ∪∩[5∨	
}4∀∪)%9
∪βε@∩Y
∪1¬∪≤∩$@@@@m'↔∪ ↓∪A3∃&~∀∪!%→∩∪¬εb∩XPhhh`@@∩@@@w¬∪9β%2[	3)
[A)$A∪_A≥∨(4∀∪≠∨Y~∪βb∩Y
%→¬) !%∞R$@@@@m¬3)
5!)$AQ≡A¬+→
$[!β	H~∀∪≠=-
∪β`∩Y
%→≥β~!%∞R$@@@@m
∪→≥¬≠
~∀%≠∨-4∪βε`$Y)≠!	→⊗@∩@@@wQ≡Aπ∨9(]¬→=π⊗~∀%≠∨-
%βε`∩171/λdY)≠A¬→↔:@@@@m	≡A)∃≠!π∨I
[%¬λ~∧∪Q≠!π∨H∪βε`$X∩∩@@@w/%)⊂A	∃→)
4∀∪∃%M(∪)≠A'.∩∩$@@@@m
β∪→∃λ~∀∪¬		
∪¬ε`∩X9∃¬
$∩@@@w'β-∀A	β)∧A
%∨4A	→∃)∪∨≤4∀∪⊃%H∪βεb$Y
∪→M)αQ%∃∞R∩@@@w¬%→β%25≠∨	
|~∀∪)I≥≤∪βb∩Y
%→¬∪≤$∩@@@w'↔∪@A∪Ae&~∀%∪≠+→$∪βε`$Xj∩∩@@@w
β→π+1β)
A	3)
[
∨+≥(4∀∪≠∨Y~∪β`∩Y
%→¬)ε!%∞R$@@@@m')∨%∀A∪≥)<A¬+
→$[⊃∃β	$4∀∪'Q∨~∪)5!
→∞$∩∩@@@w'⊃=.A)5!π∨%∀[%β⊂~∀∪∃I'(∪
%1¬+$∩∩@@@wπ∨9)∪≥+∀A∪≤A5β∪≤AM)%β4~∃)≠A'.t∪A∃∨∧∪I∞b∩0∩∩@@@w∂PA∃∨¬9β≠
~(∪≠∨-∃∩∪βε@∩Xf∩$@@@@m→≥∂Q⊂A∪≤↓	π∪5β_~∀%≠∨-
%%∞f$Y
∪→9β~Q%∃∞R∩@@@w∂∃(A
∪1∃β≠∀~∃)≠A→ t∪%	∪-∩%%∞b$Xbd∩$@@@@mπ∨≥-∃%(~∀%β		∩%%∞d$XD`D4h`@∩@@@w)∨¬≥β5
~∀∪1'⊃ε∪I∞d∩0Zl∩∩@@@wQ≡~∀∪M∨∃∞∪¬ε`∩YQ≠!→ $∩@@@w'∪1ITIZED DECIMAL
	MOVEM	REG3	,FILNAME(REG)	    ;NEW FILENAME IS NNNXXX.YYY
	JRST	TMPRET			    ;RETRY FROM DISK
;
;*** PROCEDURE REOPEN
;    - CLOSE A FILE
;    - OPEN SAME OR NEW FILE
;    - <REG>=FILE-BLOCK
;    - <REG1>=FILENAME
;    - REG2=PROTECTION-CODE
;    - REG3=PROJ.-PROGR.-NR.
;    - <REG4>=DEVICE
;
REOPEN: HRRZ	REG6	,FILBFH(REG)	    ;GET ADDRESS OF NEXT BUFFER IN RING
	SETZM	TMPFLG			    ;NO TEMPCORE-FILE
	SKIPE	REG4			    ;NEW DEVICE
	SETZM	REG6			    ;YES - FORCE GETTING NEU
					    ;BUFFEBS AFTER OPEN
	PUSHJ	TOPP	,CLSFIL		    ;CLOSE
	MOVEM↓AC0	,FILSTA+2(REG)	    ;INSERT APPROPRIATE BF-HEADER ADDRESS
	LSH	REG2	,33		    ;SHIFT LEFT PROT 27 BITS
	MOVEM	REG2	,FILPROT(REG)	    ;INSERT PROPECTION CODE
	HLLZS   AC1	,FILEXT(REG)	    ;TO GET CORRECT CRE-DATE
	JUMPE	REG1	,OPN		    ;RETAIN PREVIOUS FILENAME
					    ;AS DEFAULT IF NO ADDRESS IS SPECAFIED
	MOVEM	REG3	,FILPPN(REG)	    ;PROJECT-PROGR. NUMBER
↓HRRI	AC1	,FILNAMλREG)	    ;WHERE TO DEPOSIT IT
	MOVEI	REG5	,11	↓    ;BYTA COUNT
	PUCHJ	TOPP	,ASTOSX	    ;CGNVERT FIHENAME TO SIXBIT
	JUMPE	REG∀	(OPN		    ;NEW DEVICE /
	MOVEI	REG1↓,(REG4) 	    ;YES - GET ADDRESS OF DET¬∪π
↓≥β≠
4∀∪≠∨Y∩∪βb∩Y
%→')α,bQ%≤R∩@@@wβ≥⊂A/⊃I
A)≡↓!+(AM∪1¬∪PA≥β≠∀~∀&lzRε$M∩⊗≥TJaX$%α↓↓↓n∃JR∃α≤zV:PhP&BV≤B(&R⎇α@%2
~R>N@%↓↓α↓n∞≡u2⊗JQ¬"=αNMBα&PhR>B9PJN⊗RTh&~&d*>→"∀*≥$$J↓↓↓↓\~2εε∩α⊗ <d¬R∧l~)4-⊂Q!∃≤-K)PL4→HT|@
⊂Q(u""(∧∧λ∞piH04HλYpε⊂⊗H&`i%QiαE∧PeiDc∩d∧EOL(REG			    ;SET EOL TO FORCE TEST FMR LIL@≥$8~∀&≤*Rj4L2& $9ZαE∀Xq⊂HJ∧∧αβ\9HT
∃4λ4|@4∪sHYUβ"A→3uQ!_0hλ∧K-`iaRdWVFKVVWnH⊂⊂⊂⊂∞dg$j∩`f$m⊃P INE-NUM@AR
	IOVEM	AC0	(FILLNR(REG!
	HLR	AC0	,FILPTR(REG)	    ;FILE(
∨I~}~∀%)%≥≤%βε`∩1
∪→	¬(∩%α↓↓↓n≤Z&AαL1α
&t
JdQ!∀E∃+*0L4→H4e"λ(T:Hα"(∧∧λ
piH04@⊂⊂βHARAAP	¬
_∞@,j@∧L2λ~4L⊃Q M¬X∧r	!5∪t
↓+∃∪*
∀p
∧BP⊂⊂⊂∞βIS IT A TEH [→∪⊂∩∃xh &*∃~P&R,jB∞HHH%↓↓α↓ff⊗~aα>B,qαR⊗mα∞ =(UT4LHQPU$X
$-β$∧
α1R)It∪B
(1j"!∀λλλπ9βh"gβE	JRSP	SETEOF			    ;EBRMR ON OPEN
 
FIPBUF: JUMPE	REG6	,RAOPRT 	    ;BUFBE@$ααJ&:8α⊗NR∩2&ND*⊃↓|hP&RIq∃∀1mB%Fεελα(∧∧λ
v(Zh 
(4q5∧
R3Qd
4q(λ	5β"A→3uQ)Q4Q1fa+⊃R)HQR

(1j"$∧λλ∞aQ@2∀IKR"0(6α+
εελλ_λ∧P⊂⊂λ≥f`iRP*'P⊂d∧EAR BUFFER ESE BIT
∪β9	πβ~%βε`∩0Q%∞XR~∀∪!%$∪%∃∞d∩X!%β∞l$@∩@@@wβ	⊃%⊗N~α>→αt*bQα∃*~
⊗⊂∧∧L@H⊂	$S π
	@πβ≠
%%⊗≥0I2~&d∩~!"α(T:H∀∧ααβ9yd≤*λ~$`:αg" ?
	JRST	.-3			    ;NOT YET
REH∂!∃!`∩¬	z∧PMIz¬JA⊃∩αα∧π4lZ¬Pλ
(5∃4I@∧¬
 
TM@ER10∀∪=+!'%⊂&nε≤~&i<hQ∃|&tzQα⊗tzV≡∧λ4`:Q(∃	@P)"`Q⊂*"fT!gi"Kc$f"H↔nFEαh*ad∩∧j'h∀∧V+i∃#'&FB∧e))U∧ki*∀!FE≥CE_*** @→∪Q%β→L~∀`,hP&"~AP@Mλ∧QhYβ"εEβ∧j$j∪ ¬↓REASTRTTTAA%∨π⊃+%&↓%⊗ε%→αε: ∧¬∀01∀
4λ¬∃∃βE	TWLπ'∞4⊂v~∀lTTTA∃→)%25!∨&u"M↓%% hSαc"A_3U∀K⊃4Q0(Jc"B(Yβ*),Bi"`b∀)FE≥CE_*** E@1Q%≥β0A%
∃%β≥π∃&@@)RP4)@1Q L-α⊃⊃*)@∧agSα@%$4⊂∪E"⊗J8L:⊗@$9↓PCXQ'2RR$
$,<~:D-∩λHT4Li~DL@pπ⊂∃
∃
;
∪β`p∀⊗↓P@L_6∪hK⊃Q M∀Xy∀`'α@XDBDP⊂⊂λ≥`	NITILISAP@∪∨8A∨AI∂β'Q%'$
ε,4PJJ,wQ∃∀y→b[λβ"B*(αcX@=	REGIL∧VbVβλ4(~(T;∪β"4HXp∧g+1+2
	REG∪=	REGIHVBαYL4(M∩⊗≥QhJJε≡Lq-E- h &J,9Ut~(T<Le2∩[λQ!∃∀1mO!~Q1r)@∃XU@6
∪≥∃(∞J⊗8πRβQQ M∧βt∀πQ,-c!πc"Ne%JH⊃λZpp	$T* 	ON OF PASCAL-FILE@¬→∨π,@Q'∀A!%∨
	+∀)α↑JM"⊗ ,4	t2∧9yU∧LHZ"JααJJAQL¬FEαc$f(∃)_
 0
∪
%→β∨t@b4PJ~&2,z1`*∧∧C!↓1R3	@h#⊗@ 3
	FIH@→↔@z@h~(∪
∪→∃_
Quβ(4(_i∀dLeQ∪ !αA∧c∩d∧@∨+Pz@n~(∪
∪→
→&z@D`⊂∀!_dL@∀p
 OP_XDBDP⊂⊂λ≥P∞+⊂  FOR BILESP	β)U&~∀∩$∩∩%α↓↓↓mp¬3
αλiu∩∧HZdL≤QQ HHα""$∧λλ∞e@∃Y⊂⊂⊃'i⊂(∪βINDER TO @UFFERHEADER~∀%
∪→≥¬~z@Bβ 4(_i∀d
α⊃≡H_ZFEαc$f(∀'↑P_Mαλ
∀∪→∪⊂∩Bα	cjβ⊗qP@Li→D(β$⊗@_∧DDH⊂⊂⊂≥P*c#"T⊂ "`Q ¬R
	FILBTP= 21	∩∩@@@W	3!
AA≠∪≥)∃$∩∧∪→∪⊂∩
$→u↓I⊂H$%↓α↓↓n
M"∃α∞⎇*:QαLqα
V42⊗H∀PJ~&2drI`*∧∧@→BD@	    ;IF ASCII @≠∨⊃
@@5∧b& 4Yj"∧Ldλ∃≤≤α20iλ4P#!↓ ""!∀λλλπaj"i∀FE∧c∩d∧CNT= 24			    ;DHtA∪A	∪∃β%dA≠∨	∀@tA≥∃∂β)∪Y
@A≥U≠¬
~(∩∩$HI↓↓↓βZIαxd¬,@tQ∀d	3H⊂iYαh'g⊃dεT
		∩∩$@@@@m∪AβMβ∪∩A5∨	
@p	α∞D
Jε∞αHU∀≤βQ⊂∩dε LIL∧⊂∀λHH$$∀∧ααβ8T∧@Qλ∃λ_H∩3HI0p5	@i
			∩∩@@@@]∩!`*λ_D%∀X∧td	qH⊃I~Tq⊂∃dπRD↓∪⊂→α≤z6B≡t(4(⊃⊃⊂HJ∧∧αβ\h¬β!↓1R3λ→αh⊗@ 25			    ;FIRST WGRD OF CMH!∨9⊂~PhQd4)XQ))αα:D
∃D	t2∧α3UH~R03JD⊂sqλTλ¬∃∃βE_
	RELO@ε∩h`@```~(r~∀v(TTA¬∩0≤≤XJU∀(⊂	"Pb)Wi⊃`b()CE_    % READ STRING-PACKED CTRING
λ∧v@@@Z@@e∩⊗≥yl2& $UX$d|91PCZ∧∧ααj∧π∀HXl/@≡Th)$g⊃FE≥@λ⊂⊂⊗@ RAG2u→≥∂Q⊂⊂∀'1P@*Q01
7@∧fgUα@
β%∃∞f∩Ym!∨&u!↓MYbBJε≥λ¬∩bk≠Q∪L∃~HRm¬J λλitH⊃JYα WOR@
	SKIPA
READPS 4%≠⊂≡Z(JJ,v1∩e]	y∀e"∧p¬
Q1`_JT∧ ~@
h%n
M"∃ -λ¬∀DλSt@
λ0rq(E04pi→ εE)Rdh!&∞α	MOVE	AC0	(FILAH QI∞@$HI`≤4X¬⊂i∧⊂ss*¬@εE∧PβAIE	AC0	, ∧@D∩$∩w¬→¬_
-|hP&*J≥ &:>t∩2,$HH%niqP@Mλ¬4i	@∧j'T(∧V#Qh∧CH			3@'-∪ A¬1β≥⊗~(∪∃%'P∪'π∪A↓_∩∩$∩w2|zAαε∀zV 4AQ$d|h)D[Pα0p)_ ∧`aL∧V⊃βHα	↓	;HYPHOL∧p≤4PJ*JN J≤@qQ4J! ""'d"fG↔εE∧T*id%αh∧GPP	(GET@π⊂∩∩$p∞N∞M↓α&PhP&6>4*$&J,9P%1⊂↓$$KZBJ⊗αeb∧≤λ~"∧tyaTEM		t`!αA∧iRdh FB)"`b∪(≥∧h∃i`%∧U'h ⊂	,GEDCH	↓	;GET NEXT
	MOVE	AC  $Y
∪→
≠ A∀*≥$∧KZ~⊗R≤A↓FN ∧∧+5⊃(	XH⊂	j∀#FE∧PβAIN	AC0	,  ∞D∩$∩w⊃Mα">→xh &*∃~P&"Mα">a⊃⊂HK8ε1*1"B0h→3B4HXmα+∧∧βQ∧DB]h ∩ET. CHAR HYPH@∨≤βx4(→*%≥ _9td4TB!⊃".v(Zi35*:λ∪SjD⊂⊂4
λ3C"A→TTu↓_⊃0∀i~α""!↔qSk(H4∪ti~λ⊂rλ~@εE$⊗h$'g∞⊂!`dSα	REG4	,"π 			;PREF. CHAR HYPHMJ7
	JRST	DE@SIP				;YES-DE@OSIT HYP@.
	MOVE 	REG0	,AC0			8π'β-∀A⊃3!!_∞8Q!∀U∃8A∃∀_IEH⊃⊃∪@9⊃st∧λ4Su)Hβ"QλZ∀r5π∧⊂∧b(⊂∧`aXαT)"cLD@		;D@!∨M∪ A¬e)
4PJ6 =hY⊂M∀Xp
↓∃α⊃⊂⊃αDD]h∀ k↔⊂βHAR↓_
>9lBfBα|p4(~9tT~↓~$,;!∃E∀_IEH⊃↔4d|z∧∧
∀zYd hαB4
Zp∩B*It⊂λ∧K#b`∀CH	∀∪5∨ ~∀L

@%d2& $9ZαE∀Xp
!⊃,qQ*Hpλ∪λ~uλ⊂K~⊃#"A_p21!_0hλ∧K⊃∪Q∧BDXIS IT A HYPHOJ?
	JRST	C@∨≥∃%$$HH%nN⎇∩Je9pp4(~
U≤D!~Dm¬↓∃D<-H9HH↔:∧⎇≤~I∀lRλi∀d(β"B*	t∩B*It⊂α%A ".h→Qλ∀HZα*`∩N TG USER	
;
;*** LIP	∀
2L4SX4(→I∃ h!~¬∀≤Yh@hP`MI~Dd(α0s	Zq(
E%H⊂∀IXq1∃*(αP!f∀c$f⊂
∃∃εEαj+giQcFE≥CE_*** ENTRY-POIH
)&TTT~(v~∀∪∃→)%2%π⊂∩N4J0$	Xh)m	RQα⊗B$*J:εbjJ⊗~-∩⊗ 48Z2αR%!PSXQ!∀-EHZ$`MIZ∧≥∪⊃Q L-
HU∀p~IU¬%8APSXQ'2RR$
$,<~:D-∩λHT4Li~DL@pπ⊂∃
∃
;
∪β`r%h(&ε≠	t%DhP&J⊗<J0∪@","!⊃(λλ∧πp3R*I3∩4h~⊂3sD	qH∀HXr4uλZTu⊂(9c"B*(1o"*(1r3E6!"B*(1l/!~Q1r)@∃XU@1
↓REG25	REGAN,bVd~(∪%∞Lz∪%≥∪≤Vb,f~∀∪I∞hz%%∂∪8VbVh4∀∪%≤jz∪%∃∂∪≤VDVj~∀%%β∞lt∪%∂%_VbVX~∀&t*P≥∀XwRβQQ M∧z
βhK⊗qPSXQ'2RR$λD-≤:)∃¬$→yb∧|d
∧
≤8→Bl4→HT∧dx92αE8XR¬¬)x4,%Z(R¬=)~D,@0h∪hd
	FILBBH= 20			    ;BUFFER HEADER
	FILBTP= 21			    ;BYTE POINTER
	FIHBTC= 22			    ;BYTE COUNT IN BUFFER
	FILLNR= "3			    ;IF ASCII EODE  ~A1∪∃≥HA∪≤A¬'π∪∪
⊃β%α4∀∩∩∩$∩@@@wπ)I&~∀∪→∪⊃π≥Pz@dh$∩∩@@@w→⊂βiα&→∧∩&:ε∃Iα6>$)↓iαt*≡εRM2∃↓αu*6
∀hP$$∧HI↓↓↓βZIα>2α↑>J%→α&9∧~> -	yd,uAQ HH⊃⊃∩αα∧π4L2λ~4≤L∀	T|$T∧βR∧9λ∃∀:HU∀≤j@∧LR	I∀pH!⊃⊂HH∀∧ααβ8T∧tD
D∩	→d$L8~Dm⊂Q!⊂HH⊃∀αααπ:$CJλ_D%∀X:2∧|dλdM∃:D¬<](D∧LRλ9tm∧yhPhP⊃⊃⊂HJ∧∧αβ\jAPPLi→D≤MπPβ∪(⊃⊃∩αα∧π44M*:B¬<z(B∧|dλ4|@4∪sHYUβ"G1"NjE%H⊂uλ~Uλ∪hd∩3UH~R03JD⊂sqλQ"Nc!!4Q3	Xb-εελβ!'c"Ne%JH∀
)pq1
ZQ(⊂iJqR3↓QL¬P⊂λ⊂⊗P!S'ibP∪h"g"Q⊂#$f⊃FE≥Pλ⊂⊂⊗P∩iibbH*"fh⊂gi"VUjgP'S⊂*"fT⊗c$f⊃iFE≥H⊂⊂⊂⊗H≡)"cO≤¬FILE(¬→=π⊗~∀l~∃π→M
∪_t%'↔∪!8∪βεB0∪
∪→M)αVD!%∞R$∩w
Y$A∨A≥λ|~∀β!=!∀∪)=! @0HH$%nβ_U~αT	d⎇$	→d:¬It∧≤Dz8PhP~ID`)B00f∃α∧[[MY[[DBDYgh⊃g⊂#'T⊂'jj∀*j∨FB∧e))U∧af)Rg				;FO - CLOSE IT
↓PUSHJ	TOPP,	TMPCR1	↓	;ISSUE TEMPCH∂%
5++≡~(∩∩α∩$∩wβ↓)≠ 5
∪→
4∀∪!+M⊃∀β)=! H∪Q≠!)'P∩∩∩w]β&A∪PA)≠@[
∪→∀}~∀∪A∨!∀∪Q∨! X$∩∩∩we&@Z↓→∨)⊃%→εA)<Aπ→∨M
~∃π1'∪≤t%1π(∪→∪⊃π→LQ%∞$∩∩∩w
→∨'
↓
∪→
4∀∪!∨A∀∪)∨A X∩∩$∩w%Q+%≤AQ≡Aπβ1→$~(v~∀v(TTA→%)%β1&~∀v4∀∪→∪P~∀∪!I∂≥λ4∀_∪)∪Q→
β!U(@TT(A!%∨
	+¬∃&A!PXA!+Qπ⊃$X↓!+)→8XA!+Q!εAβ9λA)≠Aπ%.@(TT
∀%)/∨'∃∞~∀v4∀vDT(A≥)I2[!∨%≥)&@(TT
∀l~∀&,rRJdMαVP4PJ⊗*R∃H&R⊗∧~J\4PJ⊗ 5J+⊂M$Zλ5∪λQ!∀,UJ+⊂M¬ZH4E⊂Q!∀,uJ+⊂M¬ZH%,0Q!∀,uJ+⊂M¬ZID`H!_Tu%+⊃∃¬-JλphSαc"G5JJHλ[∃⊃4Ih34HXQ0Q)Hq4h¬%JC"G1"B1+
⊃0SA~∃5⊃**C"B([∃⊃4IA5∪4λ)∩c"A_6∃⊃*)B4q*H3qC!!12∃λZSB5	Z∃∀u↓Q@16
H4SB*zU∀⊂aQ@16
H4SB*zU⊃SIQ"Nc!'jJJD
Q1r*:⊃4@λH1R3I~⊂∧ggλ∃∃∃εB≥FE∧PaX⊗DLεE∧`PX↑DXCE∧i"Qdg≡DLD@DPλ⊂⊂≥dS$j$f∩i`j$Sg⊂'cλ)"cdTj"i)U aeFB∧i"cODi"cRg∃XFB∧i"cL↑Di"Qdg∃XJXFE∧T cY≡Bi"cdS∃XUIβEi"QY↑Di⊃c`g¬LUYFEαi"cZ∂Di"cRg∃XUMεA∧i⊃cZVDT"cdg
XUZFB∧i"cM≤@i"Qdg∃XJ[εE∧S ¬WREG= 1T~∀β)=! z∩Dn~∀v4∀vDT(A	'
%∪!)%≠⊂→α|1αBε≤~ε1⊗4J2⊗
dzε-↓E~⊗∃α¬∩0≤≤XJU∀
λ¬tI~α"faH'c⊂!Sd¬PILER) ***¬
;
∪
%→	β(t@bα∩$@@@@m
→β∞↓)≡A	∃'(A
=$A)a([
∪1
~∧∪→∪⊂∩
Lqt%E8H$%↓α↓↓n~d
≡Mα$yαR⊗≥!α~>⊂αεN∞LI66>$(4(ε4J2BR⊃i↓@4PJ~&2,z→e↓α⊃PPLi→D,@q∂ ε!"B1I→α'h'∂P→FEαc$f&∩h≡P~βEc$S"g*∞H~FE∧Q$f$g∂D[εEαc$f'Uj≡P≠CEc$S!f)↑H_XεEαc$f)U ↑P_LDDDPλ⊂⊂≥G
X⊂⊂#∪i⊂#$S"ib U*iFEαDDDDH⊂⊂⊂≥K∃XP⊂⊃'i⊂"⊃k$abCEDDBDP⊂⊂λ≥W∃Yλ⊂#'iλ(#dg∃"i⊂*∪P!*c⊃"i$"Pb"iεB∧c$f∪ f↑PZεE∧Q$f"l∃≡P_ZCEc$S()'↑H_[εEαc$f(∀'≡P_MFE∧c∩f!#$∂P→_∧BDP⊂⊂λ≥a*c⊃"i⊂$⊃`b"iβE∧c$S!*(≡H→_DDBP⊂⊂⊂∞a,j"H('dg∃"iεEαc$f!∃!↑P→∧DDPλ⊂⊂≥a⊗j"P!Shg*⊂∩g⊂!*Q#"aεB∧c$f∪')≡P→DDDH⊂⊂⊂≥Rc⊂ iPddP&Sb"P⊗H&$g"S)⊂$gλ iadRad i⊂FE∧DBDDP⊂λ⊂≥aj⊃i)FEαc$f!S*≡P→
∧DDPλ⊂⊂≥f∩≡P$cλ!$g T,P&gQ"P≥⊂∪ c`j∩i"P⊂∪*fa"CEDDBDP⊂⊂λ≥i⊂'Q⊂+gi⊃)P$gλ!gfh∪g"g*βEDDBDP⊂⊂λ≥dc⊂⊂iaddH&gb"H⊂≥⊂!R i aU"i!g∃⊂$g LIN
					    ;E AND TAB IJDICATGR
					    ;RH= ADDRESS OF FIRST WORD IN↓β∨≠!=≥α~∀$∩∩α∩@@@W9(~∀∪→∪⊂∩∞m↓u↓I(H$%↓α↓↓n~M∩NQα<zJ⊃α|1α∞>mα>:⊗u 4)@1Q#JR%$∧@sPuλ→U∀h¬%JC"G1"B5	Z∀r6GQ,L↓QL¬FE∞U∃∃⊂∀j i*λ'c⊂+⊂i$`g∃⊂!gb⊃FE≥FB!f)c∪#]∧l∃b∧X⊗∧¬
REL¬¬→⊗h∪1/λ$`X`~(∪1/λ$`X`~(∪1/λ$`X`~(∪1/λ$`X`~)%≥+U≡tβ1]λ∩`YI⊂~
dX4)@1Q#JR%$¬≥$~*B∧|d	∀u4~)∀UDλ4l$QQ#Hh!~$,dβpb&Fλε↓ ¬≥FB≥Q∃∃λ()'aQb*`∩E PU@)
⊃$4SY↓↓↓αiαBVα@∧|@Q(⊂iλ4C"G∀λλλ¬T∂∀Q(wO1R)H+0S	@a`
8ε@@@ZAβε@{π"
⊂4)@1Q%¬-H9¬∪P~94M∧q_dL@⊃3qE
Q1`∀BDP⊂⊂λ≥bgc∂FE∧e∀)j∧h∃j ∞EOF 		    +NM
PTAP	πPp
Nz8t(Li→D¬$5
$,:⊃⊃∩αα∧π5≥∧_8R∧dXjB∧Ldλ%,4hZ#xh!→%∃≥A≠0hPα4∃*9⊂B5	Z∀α+

5⊂QF⊃(λλ∧↓(λλ∧πt⊃5∧λu0THYβ*⊂!∃c#"iβE	JRSP	PTAP	πQ:∩@@@∩@@@w%PA)=∧~ε2HZ hPα0p)→@∧`aL∧V⊃/H∧¬α	MOP
∩%βε`∩0f`∩∩@@@@\[=iβ≤¬vw6↑.Bπ&t
7&∞βYP↔\αd uNderbap	α	IDPB	AA0	,FIH	¬)@Q%∞$∩@@@s	↓='∪(A
⊃β%β
)β$A%_	α>-"BVQ∧∩V~~-⊂4(ε∧zB(ε$zB@%`H%↓↓α↓fJ⊗αJU∀pQ'0hSαjJE$∀⊂	'PβEDURE P@+P~∀`-α↓↓↓∃¬αVAα4J2∃6≤z6B≡t*0∃ Q'2αα∧¬RβE(Xss@1R3λUαa&'PβK
;
PET8∧∪'↔%!ε∪
%→∨!%∞R$∩@@@s∨}~∀∪)%'(∪A+!
=@∩∩@@@W9~~∀∪5∨ ~∀L

D¬d2& $9jBE∀Xq⊂Jα∧∧βL<Z@¬%∀→j44
$λ4m3Uβ!↓ ""!∀λλλπ_St@λi3⊃(λ→βf`⊂OL@≥(4∀∪AYβ∪h'π≠%#≠L¬Gππ%∞&.~α"(∧∧λ∞⎇←≥9M≥→/h∧¬λQ2HtLsh:α≠\¬
FA∧j≤53∧`!c0	,Fildat		    ;skip if no  (*EJGdg∂πPh
a%⊃PPN..7 O∞ZF/∨αα"!∀λλλπ≥];<∧
9H≡,↑h
αHYQhF9pu¬g¬J#"J
5⊃4jGH⊂sj8q"1I→α!*!J)"cDBDP⊂⊂λ≥i` PbP&"Q*⊂$gλ!*c#⊃i⊂↔FB∧e))U∧iFEαh*`∪HJ	TOPP	,PUTBF1		    9PUT↓β ⊗J∀*2Qα∃*~
⊗α!P@L**5 M
ZD-≥KQ⊂HJ∧∧αβ](ZB¬$tλ4dHZ hP→Yu$λ__3JEλ∀≠
⊃⊃∩αα∧π4<-D	d-ED
t⎇∀D	t2∧9yU∧|hYe h!→∀%∧!_∀≠∃HdL@⊂U∀¬
Q1j!∀λλλπ8⊃4∪j95λ∩)D∪u5

5λ⊂JXQQ4AQB03h	SB0(6"+∀
Z⊃4u∧↓(λλ∧πs3tHT∃stHJh∩3Dλss4	yQ3U∧πc"B*	t∩B*It∀α%A"(λ∧∧∞sSaQL¬P*\pP6'[x⊂⊃8≥z2y|λα only foR pext-f`∪Y∃`
iα≤εF∞vmxLD⊂4pi→(≥≤L≥\{⊂⊂]4ww⊂
∃"e#H→→gaU≠\∃∀CE8:z→yx⊂~ SKSGE	FILBTC(BEG)		    +SPACE LEFD↓∪⊂→α∃*~
⊗⊂∧βxh!→%∃≥A≠0hP~
U≤D!~D`:∀α+

5⊂QF⊃ ∧P⊂λ⊂≥`*U⊂!bi∀"g* @UFFER	α	JRST	PutesX]	∩∩@@@WI ⊃ααIr∧≤→ID-⊂Q!∀l@uQ"(_lα+¬λ0h ∀BDP⊂⊂λ≥cbjλ'"`_T WGRD OF CMH!∨9⊂~PhP&∞εLp&ε
α↓∩b∃t!P@LYzd,H__3JF6HJ∧∧αβ\=w"ε≡⎇nf/↔Dλ

t∀⎇_-l[|Y∧∞8π22\αbab
	IDP@	AC0	(FILBTP(REG!	    +DEPOSIT @∪≤αα0≥5∀∃*D⊂U1Hh4C"A_3pRI@∧`aXBT8:j→yxλ 	    ;MH∂%
↓+⊂≡J%→α&9∧~6 -	yd,UDπphPα4∪j	@5∪j
α+α!∀λλλπdεO
9
;*** @!I_∞∞⊗%*J*λ∧∃*HU1C!'hλλ∧¬(⊂λ*U⊂!bi∀"g* @¬→∨π,~∀`-α↓↓↓↓∧"&N
l∩2>∞]→αεJ*αε"↑
JMα~Lb2ε⊃¬*@$'0ααα∧∧¬,MIλ(αi'iH* ∂ 128 GOR@S, EXCEPT GF
λ;      DHE @→βM(A∂≥∀A/%∪Q)≤A	2Aπ→='
~∀l@@@@4@q%≤|p⊗~Lb∃ ,)It9c"NaQT⊃5λ
1H
∧T*id%αh∧GPP	,P@+Q↓→DhP&B>∧P&@$z
J`Q*¬-∧(f∪@MλZ4DP~Iu¬∃JDm∧8*pHJ∧∧αβ]z)∃$
λ¬⊃)Z	1R)H εE∧V!j∧c∩d∧@∨+PQ%∞αH$%↓α↓↓nBαZB∧∃Xhd-⊂β"B*	t∩B*It⊂λ∧K∧@	    ;OK-RE@)U%≤A$yα∞εdb⊗HQ!∀U∃8A∃¬-HZ%⊂Hα"(∧∧λλ
dKβH∞@6-∩J>HhQ (αT∃*IQ3qG'j`∀STR↓[ASC@∪4<~∀J@xJJ-z)∃$(⊃Sj$⊃R3λTλπnFBα	P@+M⊃∀&$zB@%e:JR~th4(→zU%≥J!∃@84pr+↔P ∩EQP∪%∃λ←:~(∪∃%'P∪ ≡J%α_h'1P@'h¬∃∃λ()'aQb*`∩E PU@)1_λ (αN`⊂λ⊂⊂⊗@ Tπ%∪)∀@p∩∞α ∂GI⊃H∂εBα;    -  9I∞|{→∪⊂∩∃l∩2>∞Xh ∪XQ*¬-⊂ε':	H∨-∃∩∪βε@∩P⊃E(H%↓↓α↓`≠d8∧@∨βE	PUSH@∀∪Q_∞B@JbBVR≤BH (αB3)@hεEI	AC0	,12∩∩@@@@XπDdLπεEαh*`∪HJ	TOPP	,PUTC@⊃⊂h ⊂M	z∧PMIz¬JAQ#@1 N`∃
∃⊂ ⊂RLππ	U%∃αα
U%∧qQ#@4λλλ¬T∃tR*HαP⊂≤CR8`241x (αN`⊂λ⊂⊂⊗@ <REGx{
∪→∀[¬→∨
⊗~∧v4⊂
BVαJ∧;Pα33j@ ¬I	A@ε`∩XDj∩%α↓↓↓mβH5∪@@εE∧T*id%αh∧@∨!@∩P∩BαZD9∀B"$∧λλ∞aQ@∧fgUα@∩∪¬
@%c	P$∀∧ααβ4π⊃Hgβ
	PUSHJ	P	>¬% %λ¬5λd)εEαh ∂PJ	P	>¬%  Q'0hSαjJE$∀⊂	'PβEDURE TMP@π%.~(p
↓↓α↓5α~:5,*λ¬∪*λpπi-UP≡A=_	α∞αZ%∀3P
 @¬+

∃$⊂∀)X∧ααα¬Pλ
(αj*i∪α TO @πβ→→∃$A&2αV@,tλdLJ1P@'hλλ∧¬(⊂	bU⊂"gcλ* ∂ PR@-9(A/%%)∪≥∞αα0≤0β"Nd∧λλλ∧	3tQ$
⊂∧ gλ_P!*Q εE@$β∪A∨,~∀`-α↓↓↓TπE∀1o@≡Q$f"VPαL@∨π,~∀`,hRR6B≥⊃Eh~8U$|β"0iJqS⊃a⊃ ∧P⊂λ⊂≥agSdg#@ FROM↓∞ %8i∀b∧βt@⊂∀ ¬OPEL∧⊂∀!~4\Mλ⊂λ∧∧β"U	Z⊂p	+Nα	SETX¬~&≤bN~28H$%↓α↓↓n∞|j& 4tλe∀|β(∀
Zα!*c⊃ ¬R
	PU@' ∪ ∩z
J@⊂0l↓Q@∧h*Td∧j'T(∧V Pβ1~∀%!+'⊂%)∨!$Y%∞βλ4(→	DePα00f⊃+⊃R)HαhλT!%⊗≥Hh ⊂L8→T(L_6⊂J@⊗p	dV!$j/TMP   /]
	JRST	H	βY
~(LB22hL
≠λα+⊃I→α ∞AM(REG$~∀&≤
6 $T↓∀≠⊃∃E@:p∧l!∩h∧ ≡rdr@@@=:~(LRJNPLb⊗εZ(h ⊂Lλ∧S∧`aXαT∧FILL¬β~QI∞@$hP& ,zhThL_6J@∃∪4λ&!P∧H⊂⊂⊂≥T*)⊂*∪β CONT.-BLLππ,hP& ,zhPL4∧α%Hβ$f!∃!Pλ@%∃∞R%α↓↓↓n∃*~4X∧@∪TP!,j⊃T¬COU	MOVE	AC0	,[XWD 3,TMPBLK]     ;DO TEMPCORE
	TMPCOR	AC0	,		    ;WRITE
	JRST	LEAVE
	HRLZI	AC0	,400000		    ;KILL
	IORM	AC0	,FILBFH(REG)	    ;BUFFER-RING
	XCT	FILCLS(REG)		    ;CLOSE DISK FILE
	HLL	AC1,	FILENT(REG)	    ;SET
	TLZ	AC1,	22000		    ;UP
 	HLLM	AC1,	RENUUO		    ;RENAME-UUO
	XCT	RENUUO			    ;AND DELETE DISK FILE
	SKIP 
	MOVE	AC1,	FILNAM(REG)	    ;RESTORE
	HRLZM	AC1,	FILNAM(REG)	    ;FILENAME
	SKIPE↓CLSFLG
	JRST	LEAVE
	POP	TOPP	,REG1		    ;RESTORE REG1
	POP	TOPP	,AC1		    ;RESTORE AC1
	POP	TOPP	,AC0		    ;RESTORE AC0
	POP	TOPP	,
	POP	TOPP	,
	JRST	SETEOF
LEAVE:	POP	TOPP	,REG1		    ;RESTORE REG1
	POP	TOPP	,AC1
	POP	TOPP	,AC0
	POPJ	TOPP	,
ASCFI:	IDIVI	AC0	,5
↓CAIG	AC1	,0
	POPJ	TOPP	,
	MOVEI	REG1	," "
	IDPB	REG1	,FILBTP(REG)
	SOJG	AC1	,.-1
	POPJ	TOPP	,
;
;*** LITERALS
;
	LIT
	PRGEND	
	TITLE	GET *** PROCEDURES GET, GETCH AND GETLN ***
	TWKSEG
3
;*** ENTRY-POINTS ***
;
	ENTRY	GET
	ENTRY	GETBUF
	ENTRY	GETCH
↓ENTRY	GETDN
;
;*** EXTERNAL REFERENCES ***
;
	EXTERN	TMPTST
	EXTEBN	SETEOF
	EXTERN	WRTPC
	EXTERN	WRTFNM
;
;*** BEGISTER DEFINITIMN ***
;
	AC0=	0
	AC1t∩b~∀%%∂∪8z∩b∩$∩@@@w∪≥∪Q∪⊃β'¬)∪∨≤αα>→α∀*≡&N$*JNR~,4(M∩⊗≥tM∩⊗≡εpYD4(M∩⊗≥EhJJ⊗≡Lq-E-λh(&J,9It&∀*≡&9[	-H4PJJε≥≠h&J⊗<J1-EY_4(&∀*≥QtM∩⊗≡&pYE-PhP&J⊗;)t&J,:&9-
YT4(M∩⊗≥YhJJ⊗≡Lq-E-0h(&:-:Jε≥j↓ET∀PJR>Bβh%E\hQl4)ZQ))α$*N∞JMαR&>rα>→α∧
N∞εbj~&2,∩2>∞Z↓"N⊗*αBJ>≤*∩VJ*α↑J&$*6
α|1α∞>mα&2⊗∩I↓))Ph)l4PJ~&2¬"Iu↓h(&~Lb⊗.→j↓D4(L2&"⊗|au↓HhP&~&dzB9uβ_4(ε4J22.βi↓P4PJ~&2,rQu↓(h(&~Lb&9TK04(ε4J2>V#i↓\4PJ~&2≤bMu↓	4(ε4J2NRi↓EDHH%↓↓α↓m9-α↓α~>∩α~&2-~RεR-_4(⊃⊃⊂HJ∧∧αβZe6∩α∧iz"∧$Zi∀≤(Q!⊂HH⊃∀αααπ5b[∩∧λd⎇∩
	tLUHZ"¬$tλ%,4hZ$D_HU⊂h!_dLdh→Sjβ⊗APPLi→D-EGTβ(Q!∀4LJ
${jε∩`hP_i∀e¬	gRβqQ L4→H$4CTε#H⊃∀αααπ8%,4hZ"∧DX_D-⊂Q!∀4LH*EβJε&⊂HH∀∧ααβ8+∃$*λ	tLuHZ hP_i∀d∃H7Rβ∪!⊃⊂Jα∧∧β\∃~HR∧≤zYe"∧→`∧∃,hhU⊂h!_dLdIj#jβ&1⊂HJ∧∧αβ\_d∧
≤9→∩∧lxHRαj	I∀t,j$∧Lrλ~4≤L_9∧
∀⊃Q HH⊃⊃∩αα∧π4≥∧Z*0hP_i∀d≤jGRβ∪A⊃⊂Jα∧∧β\dπT∧L2λ)∀t
+∀∧l|HTβR∧hXt
$~hRα∧jYT∀(Q!⊂HH⊃∀αααπ:"∧|d
t⎇∀J4∧LRλ9tm∧yhTu Q!⊂HH⊃∀αααπ9∀2∧~84LJ	Yt$
∧π"∧≤λ~$≥HZ$≤UD	∀r∧I→`hP⊃⊃⊂HJ∧∧αβ\Tλ∀t"
H∀∩∧→hDL≤~Iu⊂h!⊃⊂HH∀∧ααβ:)βj∧_HE∀-:4∧|2λi∃∃≥D
t⎇∀D	∀b∧9yU∧|hQPPH⊃⊃⊂Jα∧∧β\uAQ L4→H4mβTε#(H⊃∀αααπ8dM∃:D¬<@tQ	xH⊂siZ∪sQ)jβ"NaQL¬U∃
⊂)b T*⊂'cλ$g# T$`g*λ!cb"CE→FEαi"f'Pβ	400000
;
;*** @RMCEDURA GETLF
9    - READ 1ST CHAR OF NEXT LIJE
9    - TEST FOR LANE-NUMBER AND PAGE-MARK
;    - <REG>=FILE-BLOCK
;
	PUSHJ	TOPP	,GETCH		    ;GEDS NEXT CHARACTER IN LIH
~)∂)→8t∪'↔%!≤β
%→∨_!%∞R$∩@@@w∪&A∃∨⊂∩9βiαRJ,(4(εU∩NP&<*R29k	$%α↓↓↓nty↓5α≤BεJε]"⊗I≡~α& 2	I∀t(Q!⊂HH⊃∀αααπ:tLdDλ$*∧zhU∃∀X_@hP→Yu4(__3JK8∃≤≤≠%rjjUUR⎇h∀∧ααβ8~%∩r
8U"¬IλR∧d→hR∧uYX$-⊂Q!∀l⎇hYPL4∧α%HR3∪	jJ∀Q(u"(λ∧∧∞u∪dλ⊂4rλZc"B*
4r∩A~∪t∀↓∃⊃q5λ9Uα(∧∧λα(∧∧λ∞qhZλλ4jD⊂r⊂*$∪qH	h6∃λ	I3Q#!!4rr*λ ∧c$S"gc∀∀"cTDBP⊂⊂⊂∞bgc∨CEe)∀j∧cbU"gc∧BDP⊂⊂λ≥lbiCE	MOTAI	AC0	,1		    ;TEST FOR LANEL¬$A∨HA!β∂∃≠β%⊗4∀∪)	9_∪βε@∩Q↓
%→¬) !%∞R$@@@@m→β'(↓↓∪(A∃##β_↓5β%≡|~∀&U∩NP&<*RJ⊗ H$%↓α↓↓nf-→↓5α∀*RVJph(&6⎇2∀&ε≠λ%2α4J2
RαBJ⊗≥HI↓↓↓βZ:=↓hα≡⊗Q∧b& 4YjTl∀X ∧m∩
λ∀<,X~$Xh!~E∃P__3λJF⊃⊂Jα∧∧βL∀~Dβ≠*λIr¬TZ)phPα33jH3"0(6 +⊃I→⊃∪TE
Q1j!∀λλλπ:u∪tHT∩5λ
Ih⊃R)I∪TC!!33uHQ00l↓∃⊃R3λ*⊂j∀HXh#"A~u0R!_0hλ∧K~DDPλ⊂⊂≥j∪P'k"T)"`bλ& ijλ#'jiλ" cdU)P g⊃⊂* aβE	JUMPGE	AC0	,GETNCP 	    ;ALL THIS FIVE CHARACDERS IN THIS BUF
	↓			    ;FER|~∀β!U'⊃∧∪Q_∞B@Jb≡⊗R∃*_$¬α↓↓↓n<*Qα¬∧r⊗Mα∃*~
⊗α!PPL_*L4→H%%αλ∧Q(u""(∧∧λ∞u	@P#k"T)"`bλ* a∪βR FIRST CARRIGE RET
↓				    ;UBN
↓SOS	FILBTC(REG)
	JRST	.+3
GEDNCP: MOREM	AC0	,FILBT@εQ%≤R∩@@@w%M)∨%
↓¬3)
∨ ⊗: h(&ε⎇_&~&d∩RA"α(T:H⊃∀ααα¬9∀d≥(YT,uJ4∧¬MHZ∧|LjHU∩∧+∀β(h!⊃⊂HH∀∧ααβ4D∧$Ly~E~∧→hB¬$_!PPL
*%E__i∀d≤hA¬∀,u⊃⊂Jα∧∧βM≤XJ2∧≤λ~$≥HZ$≤@u3U∧
⊂πP-⊃i'FE∞FE≥U
∃⊂ ⊂RMCEDURA GETC@
9    - READ GNE CHAR
0⊗@@@Z@q%β∞|u
∪→
5¬→∨π,~∀`,hR≡⊗R≤Ah&N\JB∀_i∀d,xe¬∀,u⊃⊂Jα∧∧β\,xdβzbλxU$≤∧λt-¬4	tt(⊂rλ~P0uλZK∃⊃+
β"B!⊃""(∧∧λ∞qI→α"iP∪e&,TCEe)∀j∧cbU"gc∧BDP⊂⊂λ≥lbiH⊗P""Tj⊂+bU$"i∃'cP&Pg,FEαD@DDH⊂⊂⊂≥Pj*"fT*)P*∪P'k"T)"`bλ"gcεB∧iedT"@	FILEOL(REG)		    ;EOLN ?
	JRST	GETLN		    	    ;YES - LOKK FOR LINAR
g`iG9ht∪g-Sa\∪→SYgi∧VdQe∃NR∩∩@@@w→SYJA=aK\}4∀∪UeMh∪OKQKed∩$∩@@@w]↑@4AakM→MMMM_~∀β≠=-
∪βb∩Y
%→π≥(!%∞R$@@@@m∂(AQ%β≥'→$A∂=%λA
=$A
∪1π∂≠A∨∃≥P~∀&U*6B≡(Jε
DJb≡R∞$*NP%α↓↓↓n∀*6ε&tJ2:λ)Dt:4∧5∀XWphPα03h%(∧`PX@V↔
XDDPλ⊂⊂≥lQiP⊗@∩e!`∩EMENT AHARACP	¬
_
P4PH$$$J↓↓↓↓ZB↑&2bα:εZ-⊃α*Vm↓$4λM"2:8L

D¬c8$%↓α↓↓n∞D
Jε∞$*J∞: α&MαT*J=αlz∩¬↓αqPPMIK L4∧"%Fεελα(∧∧λ
v(Zh(λ→⊃04D
⊂0@	→β"$aPh#iεB∧e))U∧cbj∀ jεEαh*`∪HJ 	TOPP	,GEP	¬+_∩∩@@@w∂PA≥E!α
V42⊗HQ(u$≥HZ5#U9z4<(_i∀d∃H5¬∀u⊃⊂Jα∧∧βLk∀∧+5⊃(	H1P
 IHA¬U
¬∧α↓|4(LRJNPL:R∞R-~Q5DHI↓↓↓βZ:=↓hα≡=α4zIα~-BQα
,2~⊗HhP&&2$⊂&ε
α↓∩d4→H%%αλ∧Q(u ∧P⊂λ⊂≥cbU⊂#"l∃⊂!,j⊃FA∧fShεEM	AC0	,(AC!$∩∩@@@w	A∨'∪(↓∪ ⊃αLqα~&d)α∞≡mα> 4Yj@hP≤¬≠∂$_8l%FLεελα"'e&`@Ve:g\_⊂&XurP4]⊂;wy~β fo@HAECN↓H'∪/→β]≥∧s=α∩5→84λL
6
*pJε
DJb≡R∞$*NP%α↓↓↓nt*RεI∧RV6B_h(&N-"j4&4J2⊗>bBJ⊗≥HH%↓↓α↓nJ⊗≤*RMα4J2⊗>bα& 2λ~4≤L∃XdLDQQ L≤→→D(L_6Jc⊗6pHJ∧∧αβ\9λT9h⊃Sj$⊃⊃1h→λ∀⊂*8p3(9⊂4P(:⊃4C!!2TTjA1q5λ9sB"!∀λλλπ8stTHXuλ∪	zβbi∃'P*h∀"i⊂!PibFEαa`dfα`aP∧K⊃⊂⊃∧BP⊂⊂⊂∞a"f'UP!& S%P∨FB∧e))U∧cbj∀"j∧DBP⊂⊂⊂∞g'Vk⊂f b⊂∀ ia`S⊂!d TεE∧aPdg∧`PX∧V_M∧DP⊂λ⊂≥`i∀↔⊂#'T&P#"Qb∨FEαe))jαcbj#⊃∧DDPλ⊂⊂∃fPi%P$U⊂$g∪$g"g∀εE∧aPdg∧`PX∧V_LD@P⊂λ⊂≥d'T$i'g∃ f⊂*⊂aεE∧R))j∧Qbj* P∧DDPλ⊂⊂≥lQiFE∧P`dg∧PaX∧VY∧DPλ⊂⊂≥f∩e"P#⊃bb∨FB∧e))U∧cbj∪#αE∧P`dg∧PaX∧VX∧DPλ⊂⊂≥z~2P9z≥x4r⊂∀z0w3≠y2⊂:[22y1_y≠FEαu99`4	getsbr			    ;yas - Stanford '←', or ascii underbar¬
	jrst	gatcnt			    ;no - ignore this character, get the next
GETFF:	MOVE	AC1	,[ASCIZ/     /]	    ;ARR. PUT BLANKS IN LINENR
	MOVEM	AC1	,FILLNR(REG)	    ; and do same as line feed
GETLF:	AOS	FILEOL(REG)		    ;SET EOLN
	SETZ	AC1	,		    ;CLEARS CHARACTERCOUNT
	JRST	GETBLK			    ;DEPOSIT A BLANK
GETCON~	SUBI	AC0	,40		    ;CORR. CHAR
	JRST	GETNEW			    ;DEP. INTO FILCOMP
getsbr:	movei	ac0	,"←"		    ;convert Stanford underbar to '←'
	jrst	getnew
GETTAB: TLNE	AC1	,7		    ;IS THIS TAB ON
					    ;CHARACTERCOUNT  MODULO 8 = 0
	TLO	AC1	,400000 	    ;NO -SETS TAB INDICATOR
GETBLK: MOVEI	AC0	," "
GETNEW:	MOVEM	AC0	,FILCMP(REG)
GETRET: HLLM	AC1	,FILCNT(REG)	    ;SAVES NEW CHARACTERCNT AND TAB INDIC
					    ;ATOR
	POPJ	TOPP	,
GETEOF: AOSGE	FILEOF(REG)		    ;TOO MANY ATTEMPTS ?
	POPJ	TOPP	,		    ;NO - RETURN
	AOS	FILEOF(REG)		    ;SET EOF TRUE
	OUTSTR	[ASCIZ/
%?	INPUT ERROR: ATTEMPT TITE FIHE NAME
	JRST	WRTPC
geterr~	outstr	[asciz/
%?	INPUT ERROR: RESET REQUIRED FOR /]
	jrst	errout
;
;*** @RMCEDURA GET
;   - READ NAXT FILE-COMPONANT
;    - ,REG>=FIHE-BLOCK
;
GET:	SKIPE	FILEOF(REG)	↓    ;EOF?
	JRST	GETEOF			    +YES-DEST WETHER↓)∨∞A5β≥"A¬))≠A)&A)<~∀α∩$∩∩@@@vA∨Y%%¬λA∨_~∀β≠=-α∪βb∩Y
%→π≥λ!%∞R$@@@@m∂(AQ%β≥'→$A∂=%λ∪
=$A
∪1π∨≠A∨∃≥P~∃∂Q'(t↓'↔'∂∀∪
∪→	)εQ¬∃∞Rα∩@@@W¬→2A¬e)αA→∃
(A∪8A¬+
→$n~(∪∃%'P∪6~∀%!+'⊃(∪!∨!@∩Y∂Q¬+∩$@@@@m∂(A91(A	+

H~∀&U∩NP&<*RεNαKPHHα(λ∧∧∞pQ*J4S@
Ih⊂p)I⊃0C!↓23⊃λ↓00l↓∃⊃R3λ*∀
∀HXh"(∧∧λλ
cQh∧ NEXT BYTE~∀%≠⊂≡Z,h&ε
α↓∩bD_6∩HHα(λ∧∧∞q⊃*	tr5∧	5λ∩)@⊂#$f⊃a`∂MPOH
≥P~∀&z∀Ta_∀λα+⊃hZ⊃0u∧↓(λλ∧πq3tHT⊂V5λZh∩3D
⊂∧$iH!cfh∪dεENT?
	POP@∀∪Q≠! ∩0∩∩@@@w
≡Y%%*J8∀SX4)@5%"R¬λ∧Shbb*i⊃P#bj⊂*cεE∞β    - GET NE@1PA¬+
→$4SY↓↓↓αi↓`%(Xss@1R3λUαa&'PβK
;
GET@UF 4%!+'⊃(∪ ∩z
J@∃∪4
Juα"$∧λλ∞i~h∩5∧λ(⊂
"Sh#$f⊃←FE∧R))b∧PαADIO		↓    ;@3∃&[∨≥12@bA	+

HAβ→→=+λ~(∪1πλ%
∪→∪8Q%∞αH$%↓α↓↓n≡-!α:⊗β
B∧∃Xhd-⊂β"B*	t∩B*It⊂λ∧K∧@	    ;OK-RE@)U%≤A$yα∞εdb⊗HQ($$α3nA~⊃tα*It⊂λ∧K∧@P⊂λ⊂≥c'T!bj LASD↓→∪≥⊗4⊂∪∃%M(∪'Q⊂≡_HH%↓↓α↓`≥≤X@λλYβc⊂$Q⊂"`∩RLπ$4SX4)@5%"R∧β∩5λZP3∀d¬JJC!πc"B)I5β"A~∀Qq)@ ∧
	TITLA∪	¬)∃↓RQ)αBα)t81∃4HT⊃⊂5λTλ¬∃∃βE	o@AIKLAα#πS↔-)αo∪∂#⊗tQ!∃%<z8T8h'1PCZαJJDλ3Q∀K∃αh'dS*)P∃
∃
;
∪9)%"∪⊃β ∩∃ph &⊗u"Jd_H∃$λβ"NaQL¬U∃
⊂"`_TERNAL REFERANCES  ∀T(~∀`,hQ`_h'1"RRλ∧Q(y4p
"T⊂""c∩dεITILπ⊂→↓RQ($	Xh ⊂L_6βhK↓Q L4∧ ≡BX@
	RAGIN=	1			    8π∪≥∪Q∪⊂∩ε≤
R&>p∧∧`8H⊂	"Qdib"T)j aRFE∧i⊃c↑Di⊃c`	N,b~∧∪I∞bz%%⊗≡Lq-E-λh &J,9I`(~(T<Le0%6@εE∧T ¬G3=	REGIL∧VbVβ_4(~(T;βQ~$,<α3@∃LUZεEαi"cJODi"cRg∃PEMFA∧i⊃c[⊂≥	RAGIN+1+&
λ	NEWR@∞zα↓EDQ!∃$⎇
πPKqQ#Xh'1"RRλ∧uλ~Uλ∪hd⊂3UH~R03JD⊂sqλTλ¬∃∃βE_
	RELO@ε∩h`@```~(r~∀v(TTA¬∩0≤≤XJU∀(⊃⊂*H εE≥H⊂⊂⊂⊗H)j'i⊃P)`∀AL@ARD ASCII(	βQ
~∀v@@@@↓	⊃⊗lj5&@≠∀∧L@U∪h	Ipp5	→β`∞ <RAG>
λ;    - ,REG>=ASCAI/10 CHAR. DAPE/
λ;
GEP@∪≥_p	n≡-"RελL
¬@%`H$%@8xU"¬h→E,*λj$l@(⊂	lTh"fFU a&"CE_	PMPB	TOPP	,
∪∪⊃∪-∩∪¬α`∩XDhh~∀%⊃%%4∪βε@I2ε
λh &&$JP∀Hα00f↓+,A⊃".q	~β⊂!,H_XεEα`b"$H⊂∧`aL∧V≠_αDD]cQh∧ @)]_4(L
∩∩⊃_∀≠λα+
F↓ ".h~pr2$	U30HZTc"A→1∀⊂A_0hλ∧K)"c@1			;DEPOSIT 1ST
∪∪⊃!∧ββb∩Y%∃∞bα∩$s	!='∪(@I_
4PJB>BPJR>BI0$∧KZJεR-∩1αRzαεε2d*H$)h"αε$)`⊂H(H∃$*g!∃¬-9↓∃$⎇λ∧α%JQ1`_BDD]iPi"FEαh*adαh'h(αT)"cL∧@D]U$)"bCEh*Td∧j'T(∧V)⊃cYDDB]i"cTFE∧fSi"Di⊃cXDV⊗h ∂INT 7,(REG),-1U	;BTP FMR DATE-STRING
λ;	MOT¬α∪β`∩Y7a(∞⊃↓3↓1EFhH%n≡-!α∩εHh '∪∂#↔WU¬∪↔
I`h ''&K[%β⊗+∃I2t!MD∀PK7?[,Iβπ
αaE#K,9M$∀PJBVNDP&B≡¬%2≡-"& 4aQ LE*+$HL_6Jb%P HH↔8D-∧z9∃"α%T hPα21
λB00f↓+∀Q(v!"Na→3uQ!_0h"%Kv⊃q∧ε-k&≠"".hx5λ∪)yU∩β!'b1q*J⊂0B(_l"+↓QLb2J*uα1)Hα""!↔s14HH!"Na→3uQ!~Q1dA∃⊗t∪i→β*⊂≠K&gg*∩)RPT⊂aXTVXjD]P*(⊂#∪i⊂&gS*$⊗`P!)"k∧A∧dY4{4P≤2sY⊗↔ _YεB∧vw`6ei ac1(↑D1964(reg2)
	mo@YKRAe∃NdY[=]iQf!eKNf$~∀βQIYRAe∃NdXhP`n`@4∀∪⊃%I1∩∪%∃∞f∩XL∩∩∩w
≠+≥)∃$~∃→=∨ t∪%→	∧∪¬ε`∩YI∞d∩$∩w∂PAπ⊃βH~∀β∪⊃!∧∪β`∩Y%∃∞b∩∩$s	!='∪(A%_A'	I∪≥∞~(∪'∂∃≤∪%∞L∩Y→∨= ∩∩∩m	≡A∪PA)⊃%∃
A)∪5&~∀%⊃%%5$∪βε@$XDZD$∩∩wβ9∨)⊃H@DZD4∀∪∪	A∧∪βε@∩Y%≤b~∀v%≠∨-
%βε`∩131/λjlXbE:∩∩w≥(A3∃β$~∀%[←mJ↓CF`Y¬Fb~∀%!+'⊃(∪)∨!@∩Y∂Q∪∃∩$∩~∀∪!%%5∩%βε`∩0D@D~(∪∪	!λ∪βε@$Y%∞D~∃≥⊂t∪!∨@∪)∨!@∩Y%≤f∩∩∩m%')=%
~∀%!∨ ∪Q∨! ∩1%∞d$∩∩wπ¬-λ~(∪!∨ %)∨! $Y%∞D∩∩∩wI∂&~(@@@@%!∨!∀%)∨! $X∩∩∩m%(AQ≡Aπβ1→$~(@~∃≠=≥)⊃&h∪β'π%4←∃β8@A
λ@A≠βH@Aβ!H@A≠βd@A∃+8@A∃+0@Aβ+≤@A'@@A∨πP@A≥∨X@A	@@↑~(v~∀v(TTA→%)%β1&@TT(~∀v~(∪→∪(4∀∪!%≥≥λ~(_∪)∪Q→
∪)%≠
@T(TA!%=π	+I
A)∪5
@TT(~∀∪)]∨'∞4∀v~∀lTTTA∃≥)%25!∨∪≥Q&@TT(~∀v~(∪≥)I2∪)∪5
\~∀%≥)%d∪)∪≠∀~∀v~(vTTT↓1)I≥β_AI
%∃≥π&TTT~(v~∀v4∀vTT(A%∂%')$↓	
∪9∪)∪∨8@TTT4∀v~∀%βε`z$`~∀∪¬εbz∩D~∀∪%∃∂∪≤z$b∩∩∩@@@w%≥∪)∪1∪'β)%∨≤A∨_A%∂%')%M)βπ⊗4∀∪%≤z∪%≥∪≤Vb4∀∪%≤bz∪%∃∂∪≤VDVb~∀%%∞dt∪%∂%≤VbVH~∀∪%∃∞fz∪I∂∪≤,bVf~(∪%∞Pz∪%≥∪≤Vb,h~∀∪I∞jz%%∂∪8VbVj4∀∪%≤lz∪%∃∂∪≤VDVl~∀%≥/%∃∞z@bT~∀∪)=! z∩Dn~∀v4∀vTT(A')βI(A∨↓∪≥-βI∪β≥(↓π∨	
TTT~(v~∀∪I→∨ε$h```@`~∀v4∀vTT(A!%∨
	+%∀A)∪≠∀~∀v@@@ZAM)∨%
↓')β≥⊃β%λA¬'π∪∩5)∪≠
4∀v@@@@A⊃ u≠~uM&A∪≥Q≡A→∨
β)∪∨8@y%≤|~∀v@@@Zy%∞x{β'π%∩↑b`↓π⊃β$8A)∪≠∀↑~∀v4∃∂)%≥tw≥))βλ∪βε`$X∩∩∩m∂(AYβ→+
↓
%∨~↓'3')∃~[)β	→
~∀l∪!∨!(∪)∨!@∩X~∀%∪	∪-$∪βε`$Xbd∩$∩w	∪XA¬2@D`~∀∪¬		%α&ε
I1Y@HH%n≡-!αR↑xh(&ε$"$&ε≠λ%1YH$%n
~∞&%∧rV6
-∩L4(LJ∩BλL

@%e∩⊗≥DHH%n∩-α>N&"↓FNPhP&&∩∧⊂&ε
λI2J⊗;λ$$%\"⊗B>≤JQ↓Jt 4(&∧zB(&$zB@%`H$%n∀*RVJrαR=α≤
22⊗⊂h)4U"&&∃Ph*R&l)1h&¬*N &$zB@%e∩⊗≥DHH%nN
2∃αJ,9D4(Lj>Z∀M∩⊗≥DJbnB>LrQ↓]bBJ⊗≥Ja5FtKZ
RA∧2>Iα$J6∃6≥"J&:8h('SNk↔Iβ∞→A04PK'∪'6Iβπ
αbz⊃Yh(''&K[%β∞→A2z#1@4λOβWO!π#?CAf
D$HH%oC/≠!βO.≠?;∪_h(''&K[%β∞→A2z#1@4λOβWO!π#?CAf
D$HH%oC/≠!β7LsWS↔_h)l&lzR∧&→@%2]BV⊃↓3	1EFhH%n≡-!α">-∩L4(MαVN"PJR>BI2≡⊗$J2λ$HH4(εE∩Jj$L

@%b⊃iλ$HIf∩⊗∧zN&Qα⊃iλ4PJ&∩B⊂Jε
@JbJ⊗≥λh('C|εαπ&}
αf∞6↓PSX→Yu4λ__3JK;¬,"εf"c≠Q⊂K\xZB∧l→jU$-1Q M¬Z9∧PMIz¬JHxU$LhaPPLλ*%DH__3JD'"⊂H⊃↔4tzI∧-∩∧'"h!→∀%∧!_∀≠∃J$,;⊃Q Oε}∧π&@|≤≤lβ"GDfgk⊃D`aXαT-l+Q⊂≠→VXh
		8π∂(ααN⊗∞|r∩L4PJBVNDP&@$z
J@⊃q5	→β#∧DBFA∧d∀)(
I	AC0	, ∧@D~(∪∪	!λ∪βε@I2J⊗8ε⊂hPα2∀J+R(λ∧λ0hλ∧K⊃⊂⊃εBα	IDP@∧∪βε@∩P∩J,9D4(Yd#P~	uMIz¬JJ(T;λα""'i"`∪TLπ%
AI∞b~(@@@@%!∨!∀%)∨!$X∩$KZJ-JZ$`$∃∪hλ`f&"T∧¬α;
λ∧v@)RQα2ε$*Jε2~↓))(hQd4λLb&@ Q!∃¬∀xYd @ ¬LTRY	Tπ%)!~∀&,rRJDL~6J⊗α* hPα13JJT∧P⊂λ'k"i⊃↔εE∧QdεTRY	IN@1∃%$4PJ⊗ 5J+⊂M≥(Z%⊂H!_Tu%+⊃∀9βc"i∀∧¬α	ELTRY	PUTERR	
	ELTRY	EH
λ~(∪≥)I2∪'$z@ (αB1)J∀V")~∃⊃4J!"B1)j∀V"*85⊃4J!αE∧bS*),DS'agi⊃F@
	ELTRY	PTRERR	
;
λ;"** AP@)∃%≥β_↓%β
I⊂~∞-→↓))Ph)l4PJ⊗bR-∩0&↑∃"~:4hQd4)ZQ))αα(T<M8HU∩∧HXdL@R5∩)Yβ⊂∃∃
∧A≥FB∧`aX∂DXεEα`aP⊃t∩b
∀%%∂∪8z∩b∩$∩@@@p∞&:M"& $~8∃$Ly`λ	XH⊂Q(y4q⊃**u⊂0i1"B4HXo"4HXp∧g+1
	REG1=	RAGIN+1+!
λ	REG28
∪%∃∂∪≤VDVd4PJJ,v7PM∀Xy∀`%l*`→CE	REG0=	REG@∪≤αYE-PhP&J⊗9)t&J,:&9-λYT4λM∩⊗≥YhJJε≡Lq-E-0h &:-:J,wPβλβ"B( idiOP⊂_[βE	TOPP=	17
;
;"** ADDRESSES ***
λ;
	,¬∃¬	⊃(rαnP~∀%tRαRB≠i↓EI8h)l4SY)))¬~RεJ ∧∧`8H∩3Jh4R0)jλ⊂shHαP∃∃
∧E≥FB∧i"f∪βC	40000 
λ;
;*** PROCEDURE WRTPC
λ;    - GRIP	
AU'$OLA!εA¬≥⊃αU*6@4SY↓↓↓α↓α&:$yαBε≤"∩QαL1α2x_D, Q'0hUz*E∧≠!→u-%8¬∀A≠p4pi≠Kh⊂*D∃4q*$∀⊂h¬[!"H∧∧λλλ∧↓2⊂TK∧i"cBV⊂! TdiTDNβIF RH = LH = 0 T@EN WE
	HLRZ	AC "$XQ¬βM∪&R∩mβ%
A=_A6J16B∀z≡Jεh∧∧d5Q3↓Q@∧a`Re	REG	,(AA1)		8π∪&A%(Aβ%_	`8Q!∀U∃8A∀l→a⊂HK8ε1*1"B2
*T¬∧i⊃cDV⊗LT)"cJDXGET S@)¬%)β	⊂X	αxd¬$Dα4h

Spq(J4Q#!)b`i⊂βH:	HLRP∀∪¬αb%bBJε≥HH%nN,
J∞∧
DD(∩3J:α)*aU$ggεB∧a`dQD`aXBT∧5 (β	P≠-b"'d))$H_[V,
_[TP∃βHE@%∀A0@5α⊂λ	~h⊂
$⊃FA∧`Se#Di⊃cDV)Q`i!dαDXLEL@∂)⊂αα0≤2λ¬∩λT⊂0u	~β j$SβH[∀*ε =(AP@Lλ*%@!00l!∃α⊂ ∩EG)∩∩m)⊃&~α&MααI∧*∧i~%≥λ∩U)Zβ"QhZα b)∞α	ADDI	AC1	(λbQ	β'β&$∩w&u"0~¬IλR¬∃YjDL@1+4jZ∀∪tJA ¬∧d∀)(
	REG	,(AC1)		;RETURN-AD@	$A%_	αJ,9α~>⊂∧¬∧
8HE HαB4iY@4Q(q+α"'`f+`ViP&dSαUS OL@

∀%⊃%%5$∪%∞β⊂% #aQ LLzhPM∀Xr0JE8	tL@UλeJQ1`⊗YnFEαdf"!α`aP⊃	,REGL~∀&"∩$__3λJFfhPα3u*Hp⊂	∧PaXDDB]ki$U P ⊂C
∪'=∃ε∪%∃∞d%bq5L4PJ6 =hY⊂L4∧"%F-#"A→u0
!R)	AC1
α	MMP
∩%βεb∩0bd
∀%_∞@-H9¬⊂L_6⊂hPα2∀J!00l!∃λπ%!⊃ *⊂∧NβH@∨β⊂A!β'⊃	(Kβ⊃	$4PJ*V6∧(&ε
α⊃∩d,hA⊂K\Y	∃ hαB2J*uα,↓∃	("λ_l*"'_su∪d∧q0	)⊃!↔∪FB"g"
αbh$jαD@		;EX@∪(↓)≡A≠=_
&R⎇⊂4*6J0∪P→
%∃P~(T8JFFβββ∧∧α!↔tp
 T*⊂ b⊃)⊂'cλ()'cT fFEαd))-α`aP⊃	,3 @%∃∞Rα∩m/⊂≡J%→α>→¬~Rε∞XαVN⊗ α∃J	X∀LPβ"B)*Tu∧∧λ⊃q*H1∀B!⊃,psij∩3U(T∃∪hλ_3⊂kD
4q4D
⊂c"H9βi"i∀≥⊂'jU)j)∧V`iadV↔FE∩ODib PeP'k⊃i)*g∀P "`T≥⊂ ∩ETRQ WIP@⊂A5∨%
A
∨%
←t~∀&E∩Jh&∀*≤%1D∩εN&~H%nR-~Qα&2α⊗JJ⎇⊃α&8hP&"2∃P&ε
λI1"

~&M$KZ&*&$Jε2&T
R&>ph(&∞J0&J,8%1"→E$$KZ>→α¬∩>≡Jh4(εU∩NP&,r⊂4*:D⎇β!→T⎇∀Y⊃∃$⎇
↓∩bk∃λ$
≤~5⊂K](Z4-"
Iu¬Q!∀De!_$
≤~1∩bk∃λ$
≤~5⊂K\→hB∧∀~9∃_h!→%∃≥A~u∃%λ1PT≤yhU∃∪$	u-%8J M\~84MRqQ"+x→→e¬-DλD
$∀λU∃∀z$∧LRλi∀d*¬{PhP~
U≤D!~D⎇¬↓∃E=∃Hidhh!→%∃≥A~u∃%λ1PTLkλU∃∪αH∪jZ∀q∀A≠p4pi≠Kc"DWb04J(6(∩)hα"l∪h¬T OF BOUN@	&←t~∀β∃I'(∪/I)!ε~)'%¬Hp∪∨+Q')$∪mβ'π∪h↑~∀J|∪'πβ1β$A∨U(A∨↓%β≥∂∀[:~∀%∃%'(%/%)!~∃!+Q%$t↓∨ ⊗R≥"H&n
~∞&ixh)∃|LzVRB-!α⊗J∀zIiα$JN-α≥αε∞∃∧*b"ε-~R⊗⊃∧2>Iα4J2∃↓⎇h4(&¬*N"(M">B@Jb↑JR4r5%α↓↓↓n=∩&B∃∧2&"∃∧rε6∀hP&*J≥ &↑J%α4*⎇2⊗J→sP&>V%~RH&\
N∞&Rx4)∃xJεJ&$B6⊗RL→α>Z-∩~2>:α>IαT*J>∩M2&∩∃∧
QαV≤*IαB~↓>t4PJ"JJPJJ⊗≥`I:*
%α4(LRJNPL:⊗Rε%⊃-H4TJBR⊗∃⊃h&>-"NRHMZεN∞MQ<4)+x&N∞bεIα⎇*Qα>2αJε:<)α&9∧2&2∃αzt4(MαVN"PJR>BI2↑J$2:44PJ*JN J↑JR∧_4*N-"⊗JIPJ>VR≥"H&n
~∞&ixh)∃|Lj>J∃¬""ε9β9IαN-!α⊗2,j⊗:R~zt4(LRJNPM:JRB_h*:>≤zJ∃hLzVRN%⊂&nε≤~&i<hQ∃|&≤zJ∃α∀*FV&∀*6⊗:"α≡J⊗
"⊗Iα$Bε9↓∀~>J6
A↓>thP&*J≥ &↑J%α4*¬"J⊗J∪P&>V%~RH&\
N∞&Rx4)∃xJV:&tJR&εdJjε⊃∧zIα:LaαB>LrR⊗I⎇h$%↓α↓↓nε∃⊂4(εU∩NP&=∩RBhQl4)ZQ))αdJR⊗JbM↓)RP4)LhP&2& h(&B∀:⊗:⊂hP0&RM"2∀ε$*αNAαQ))α$*αV≥¬~VBB⎇∩Q↓)RP4(&%:0≥≤XqPSXQ'2RR$λTu%+∃U∧|→jE_h'1PPLYjE∃J	→d$%aPPLYjE∃Jλ[∧$0KC!'c"Ne%JH⊃+
⊃0SH→λ⊂Q(h4Q3H84c"G⊃"B1+
⊃0SDλ3QλHαa*cCE	EXTERN↓_∞J⊗α(b`H$↓P@K:(T<M8¬⊃*$⊃⊃1I→β$j$SβH4R4(__3β@,β"A_0hλ@=1
α	REG@∪≤βiD$¬\J0∀MI→DM≤~I∀`9β⊂'cλ)"cdTh∧E@%M)βπ⊗4⊂∪%≤zA%≥∪⊂→-λh &J,9EvJ,:& 24∃3λh!~$,;'Z$,<α3@∃LUYεEαi"c@3=REGIL∧VbVβ_4(~(T;∂0	"Qdg∃@1+0
	R@∞ju%β∂∪8VbV@(h ⊂M(Xs#@4Q1i→β∃P@+4∧⊂∀!→$∧QS∃gV-β"A→β"`↔REG=!T~∀&∃*~4X∧@≡LX¬~∀%
εNM→uEXhP&@$βt∀πV-c"GFE≥@*** DESCRIPTION↓_∞→α4J2,)It9h∧⊂)QbP ↔RIP	≠R~)Xh ⊂Li→E¬%'Pλε↓α@
	FIH	∨_z@b~(∪
∪→∃_∞ #Tε hPα1R)It∪@≡H→FE∧Q$f&%T≤¬  (4⊂λ&~Lb⊗ 5GPλεQ ¬∧c∩d∧@∪≤βh%@0β"B(i3∪u*GαP⊂↔
λ∧∪
∪1∞ %4π _L∧¬∀∪→∪⊂∩NαH∪k⊃↔2αr4∧α∧St@⊂⊃$f"iU j*iCE			8ε@@9Xε∩α∧iz"∧⊃0$PβE¬
			0⊗@8Vd@A→_∞Iαα	tL@U⊃4D
⊂πP!∃c#"i∩ ¬ADERλ
∧∪→∪⊂∩h→SkAQ L4→HUE#T⊂
!Q@∧c$S()'↑LXε~∀%
∪→!A_	`+⊗qP@!1R3λ εH :H`∩`.∃*~4X∧@⊂∩ ¬ADERλ
∧∪→∪⊂∩
%↓uIDKZ∃MHT¬∧|α3UλZ@εE∧Q$f!*⊂β=22	8π¬#)∀Aπ∂+9(A&p∧∧*1QQ*!αA∧c∩d∧@→≥Hzdf∩m∪AβMβ∪∩A5≠	
@4A→&t*0∃∩	→b∧
89∀L≤α⊂4H_u⊃4J1"B1I→α!g*∂Y~∧]S$≡P$Q⊂!$g⊂i(	 MMDE : NEG∞ NUMBER OF WGRDS @∪≤αα≤@q0λ'Sα@≥λ4⊂∩α∩l@@@A%Aβ'
∪∩A≠=	∃↓βQα:Ip∧∧l2λ9αb∧α3@⊂∪$g"P⊂e"⊂*⊂a⊂$g⊃$a`j∪βR~∀$∩∩`.α)βj∧_HE∀4ph	XH⊃R**uλ∃i@i"⊂$Sα COMPOFENT	α	FIH	π≠@zdj∩m
∪%'PA/∂%⊂A∨A
≠⊂⊗B|r⊗ 5AQ#Hh'1"RRλ9t`*u⊂3JJc"NaQ@∧f`V"gc≡LXεE∧Q ¬BSIX@
j@⊃↓A@%Y
,4)Xh!m	RQαε∩%∩⊗NN-_4)@1Q Jt(*$,@∂(
εA ¬∧W∩!""*∂P≠ZεB∧W%!∀`ZP⊃∩0λ
(Jr*
~3iEIDhP%:*∀
BI@T∧$FQ ¬∧W∩!!g$OXY≠εB∧W%!∃(!↑@127
	,¬∃¬∨Aεzbf@~∀&∀:N@%*7Sβ"A~u⊂0i8So$&Fc"B*:⊂5∃*7,-¬↓Q@∧f$Sdj≡@145~∀$X
=J8t`'αXZεB∧W#j∪$fVJ∧¬∀v4∀vDT(A'aKα≠'πD
4LD
U,Z|∧c!πc"B)Z⊃⊃1D
∃⊗4hZλ∩`_
≠X__
__⊂⊃Hc:4PJ0≥∧HXb∧≥IJbαα	0εFlεFλλ_n@
	Lπ!	_A'$
ε@"	0εV-I___⊂_,@
;
0⊗T(TA'$
JQα|1αZε∀Jε 5Dλ4`8⊃#"GFE∧DBDD]j∃,P9`4ate @%]MOE5CiS←αqβ≠} λ
823β!	∩3Pi
L¬∧XαD@D]S4p∞e cha`%¬GiKe%`∂S'≥_4*&⎇~RεQPI@$∧HI`≥→<[-≥X;λ
∃{h∀nL=_
`3 sord
OLDACT: 0	↓		8π⊂∨3 ∧π>→8p∀Xv⊂0q]4{0z~ww⊂*_q22FB∧XεEαXεE∧L∧¬∀@4⊂∪→∨@]∃¬⊃	(∩∩$p∞@-λH∃$(RH ∧DT
λ∧∪1<!↓A∩$"Rα	ph!4PJ2>
αr*
ε¬⊂$$%]*B$~HRαt((∃¬⊂β"B+
qλ¬D⊂4∀I→β*∧DB]`	NTERRUPT-ROUTINE
λ;
;*** START↓_∞→αLrRεJL
2Qα≤z∩(β"NaQ@∧i"S'aP~__⊂⊂0
0⊗~(p
))RαBJ>≤*∩VJ*α& 4HX"`@ ¬≥@λ⊂⊂⊗@ IH
∪)%β⊂∩εT)αα⊗∃*≥αNβ~5$QQ#@1 R3HHαa↔:	JRST	(Vh$∩w'↔% Aβ%=+⊂~⊃h¬T\@∃1q$λT∧P%Ud¬AR
λ∧∪∃+5!α&→D%1p¬3_H↔9dmλ⊂	d∀∧¬α	OUPS@)H∪7β'
∪4↑~(J}∪!I≠∂%β5&Aπ∨5!∪→⊂A/&$AαRλT∧$0U1eYβh ∀ILπ⊂→αm*N@"	iu"∧(T¬≤D~(∀∧dTεC!∧i"j∀,P ↔ITH .SAP
A%_
NR,
⊃αxdα`*tp5HUβnFEαe))jαbg"εBα	SOJ	H
=∩⊗≤%`H%n→h5∀313JD⊂π"kT ¬G
	HRRI	AC "$Xfnnβ9P≠b".iIp1⊂⊃$i)jλ& 	NK - @/=%⊂4PJ"J2HJε
DJaM@;vp
f@D@	;FLπ$A⊃∃β @Zαα∩V6α↓P@!33uHY ∧`aLDV∀'⊃hπREG)	0↔	∃!∨'∪Q
A2Lr-↓T
t`:Qβ"A→∀TVA_0hλDK↔%!#⊃∧P⊂⊂λ⊂⊂⊂⊂∞βGED↓⊃∪∂⊃∃' ⊃αdz_h!→TmQ3"(_l"+
(βi`∀RS	↓;OL@λAπ=%α[9λA¬
_∞ ,X∧hλ ¬GIN OF DEBUG↓β%α4⊂λ&ε$"$&ε≠λ% $HX%≤MαQ#!∧agi⊃D`aXBT∧D]Qbj⊂!SβRE FLπ$A	∃
V≡<J0∀c"B)λ3∃α!⊃ ∧]bT)'i R@)+I_λ (αB2
*T¬∧`Pβ1∩YI∂')%L~∀&lzP∀2"0(X@	,DEBSIZE(AC1)
α	HRRM	A@εb%br*
~0h ⊂Mλ¬4i	@∧j'T(∧V)PhεE@%≤∩∩`.α8∃ (αP ∩EGIS@)∃%&~∀%')54∩`∩YM)β)+L∩∩`.dAu≡→i∃"~βλ∀Iπαh ∩OG(
¬≥∪∀4PJBVNDP&@$z
JDα3R(~∀B"'FE∧h∃i`λJ	TOP@ $Y∩⊗∃*≥ 0β"B*	t∩B*It⊂
%Aα@
;
λ∧v@)RQαBJ|~⊗∩Vα(R∧4∧""Pα.¬
;    - @≥$*IαRD)α$X*T:¬8ε4jHαfFE∞β
αEXD@∧\βQαBVα9∧PMIz¬JJ8∃ (αi#DB]i`k⊃P)"cRij"i∀FA∧d∀& D`Pβ1∩XD∩∩`.α:D
∃0	↑Iij'h	FA∧d∀)	AC	;RETURN TO PBOGRAM
;*******************************************************************************
HALT1:	HRLI	AC0	,4		;STATUS='HALT'
	SKIPA
ERRDB1:	HRLI	AC0	,3		;STATUS='RUNTIME ERROR'
	HRRZ	AC1	,TOPP
	CAML	AC!	,RGSTRS		;ERROR IN DEBUG?
↓JRST	END
∀∪5∨%~%βε`∩1')β)U&~∀∪A+'⊃∀%)∨! $Y'β-∃%∞∩∩m'β-
↓%∂∪M)%&4∀∪!+M⊃∀∪)=! ∩Y⊃¬+∞8∩∩wπ¬→_A	∃¬+∞~(∪∃%'P∩`∩Y∃→⊂$KZ⊗b& h)m	RQ)))RQ)))RQ)))RQ)))RQ)))RQ)))RQ)))RQ)))RQ)))RQ)))RQ)))RQ)))RQ)))RQ)))RQ)))RQ($*≤
Z⊗J;Qα6>4*4&ε≠%2α∀:NBJ_I`≥≤~hR¬-8Z"m∀Xy∃≥$Z*0hPα33jH"00f↓+⊂0f⊃"B2
*VB0(6"+∀Hzu∀TaQ@33jH3"0(6α+%λ0l ∀CEd)∀$@`aL∧V→∀⊂aXTFB∧d)&∩D`aXαV→εEαa&*∧PaX∧V[T aLTFE∧T'h%∧U'h(∧K_εE≥J∃∃∃∃
∃∃∃∃
∃∃∃∃
∃∃∃∃
∃∃∃∃
∃∃∃∃
∃∃∃∃
∃∃∃∃
∃∃∃∃
∃∃∃∃
∃∃∃∃
∃∃∃∃
∃∃∃∃
∃∃∃∃
∃∃∃∃
∃∃∃εB$g$`T)≥≥fSi"D`PXDV-V+b⊂⊗LV⊂↔#U&$fnB]`i#Ufbg*λ#'i⊂⊃bj* P∧E≥DQbj* P∧`aXBV∧DDNFE≥DR f*∧BDD]bT)'i⊂∀"j*i∪∧E≥DU&''∧PaXDV__∧DNh"ijλ$c⊂!⊂j!d⊗R'aεE∞De))U∧g'j⊂ j∧DB]g'FB≥Dj&⊗∧`aXBV≠[[MX_∧DNibj⊂⊂$j)P⊗XY⊂∃'P-"T'FE≥Bdfjf∩D`aXBV→~∧B]agg∃ i*∩$c#$QiP*'H&ibaCE→DfSk"fPλ∧`aXBV"$fRj∧D]Tj'i"H* fbH& fdU∧E≥DSgk"dH⊂∧`aLDV→_LXX∧DNβARGUMENT FOR APRENB
3	APRENB	AC "$X∩∩w%→_[≠∃~[%_@VAπ1≠πε[→→β∞~(p&B⎇α(&R⎇α@%0hQm))RQ)))RQ)))RQ)))RQ)))RQ)))RQ)))RQ)))RQ)))RQ)))RQ)))RQ)))RQ)))RQ)))RQ)))RQ)))RP4*:⎇"
εQPJ6.Z,H&ε
λI1D$KZNR>∀)2R"
!αRαM→α*>⊂∧∧M_Q!∀E∀IQ∀≠⊃∃E≥$_94∀x↔8∩¬$→XU≥≤λ~$LTuY$l⊂β"B)Yβk"dB`aPDK→__HL∧D]`T!jfbS*⊂#'T⊂ h)⊃dεB
	APBELB↓AC1	,		8π∪→_5≠~[I
∀%!∨!∀%)∨!$X~∧v(TTTT(TTTT(TTTT(TTTT(TTTT(TTTT(TTTT(TTTT(TTTT(TTTT(TTTT(TTTT(TTTT(TTTT(TTTT(TTT~)β!%∪9(tβ≠=(
⊗4L

@%dαJ∞NαJ%_K8∧p*h(⊂0f↓ ¬∧d∀))∧`PX∧V↔∩!!g$BDXGET REASON FOR INTERRUPT
	TRNE	AC0	,100 		;TEST AF TIME IH
)I%+!(4∀∪∃%M(∪)∪5∪≥(∩$∩w∃+5 A)≡↓)∪≠
5∪≥)I%+!(5%∨+)%→

∀%)%≥
%βε`∩0bb`∩$s!'PA∪A¬%∪)⊃5)&~α>J⊗∀22>\hP&*J≥ &>Z-∩→8$HI`≥LX∧c!!33uHQ00l↓∃RPJJ⊂b"'→3uQ$
⊂h∩)d⊂0l↓Q@∧gjU)j)⊗βASCIZ/
%?	ILLEGAL MEMORY REFERENCE+]
	JRST	ERRDB1∩∩$p∞ε: α*V6ααR=α-∩J∩⊗∪λ4)@5%"RR%%"RR%%"RR%%"RR%%"RR%%"RR%%"RR%%"RR%%"RR%%"RR%%"RR%%"RR%%"RR%%"RR%%"RR%%"RPQ*DLl→jC@M8ZEPL_6J`Q!∃∃,jI∀hL_6J`⊃↔4<-D
%,uI→T(h!~5,⊂__3JII∀lMA⊃∪Hh!→%,mλxPL4∧α%J∩33	→ ∧D]Rc⊂"$⊃i"P$TP#'jλ"g'jQd⊂"$SbBE∧Sgk"dB`aP∧K→_X_∧D]`T!jfbS*⊂#'T⊂ h)⊃dεB
	APRELB	AC0	,
	MOVE	AC 	,@RGSTRS	;RESDORA AC0
∀∪)%')%]∃¬Q!ε∩∩$p∞*Vm↓α
ε≤YαR≥¬""*λ∧∀IxtP3!QL¬U∃
∃∃∃∃
∃∃∃∃
∃∃∃∃
∃∃∃∃
∃∃∃∃
∃∃∃∃
∃∃∃∃
∃∃∃∃
∃∃∃∃
∃∃∃∃
∃∃∃∃
∃∃∃∃
∃∃∃∃
∃∃∃∃
∃∃∃∃
∃αE*∩ff$fN∧gjj∀j)⊂-PiadmFE∩←Bj$fbH& fdU⊂"l!Qbb"bnFE∧Sek"DPaX∧V%!*(⊂DD]h⊂P*'P⊂aXεEαe))jαbi)"⊂_@			8π∃+≠@A)∞A∃%%	λb~∀v4∀vTT(A!%∨
	+¬∀A	¬U∞\~∀l@@@@4A'C@4)βSSJβOSπ&)↓"NJ1$4SY↓↓↓αiαNε4)αVN-⊃αJ⊗<JNB⊗∃_4)Mα↓↓↓5¬αJ>ZL"∃αB∀z≡Jεh∧¬≥$_92∧4z$∧$*Xr¬≥~:D,hβ"Nd∧λλ$λ3U⊃*$⊃⊃0JXh∀v*:⊃3#!'hλλ∧¬(∀Y.>≠|Y$∞≥≡(∞>_=→$¬∀p2)E!"Nd∧λλ$
Q0	j∪i"P*Tbi⊂)⊃cdij⊃i)P S ⊂)"U*i'εB≥FE"⊃a*cW∞∧fgk⊃D`aXBV-l+Q⊂⊗Rελ-l#bλ__YX_⊂IOSTAT	;Remember↓SDAKα≠#?'v84(⊃⊃⊂Jα∧¬<"εε∪∪β∧¬C∪β↓↔5'∂-`ε}6d	d|,9	rε⊗≤¬β!! ""$∧λ∩∃hDλfε∪	→β!d)α]i2vYvq2`2 if @MaKGS¬X∩(HH$%↓ααb↑⊃β↓AIAβ↓1EAααuαtK[π∂SM3πS'|¬bε@8πr2CEj*⊗ib`∀	AC1	,		0↔	<AiQJ↓CE@?4∧PhP~8U$8A∃@;∃q⊂∪βH		β
(XA\z≥λε¬T↔".j<=Y(
⎇→λ⊂⊂Xz4s ]4p∂n↓iCEYα(4(→Yu (α@	AC1	,RGSP	%&$∩w∂PA∩⊗∃*≥ -(XtM≥HZ%_h!→T⎇Q2")@ ¬WREG	,DE@¬'&T)"ε
λ¬⊂hPα33j@ ¬I	BASAS	,20(A@εbR~(∪∪∨-∃∩∪)∨A ∩Xb!
εNM→$4!~¬-≤	!∃$⎇λ∧α%Hα"a*QDD]b⊃a*cFB∧ibj⊂aj∧mV+b⊂_'`DA@π ∩tHI`≥⊗↑8

}Y(∃.≤αy∪yH0qz4]0z4`/n table¬
	MH∂-
%βεb∩1∪⊂≡NαH∃ H↔8v/"
xD≥≥≡$
+{h∞>_9≥.P;wi→∧A∧j∀'"D`Pβ1↓,200		;Sae Id∧AKGαC=βOF{W3⊃∧∧&*ε|h`hPα0u	J@""!↔h∩0∩\β  ~AQke@9∧¬↔"ε|h	AQ@∧fgUα@
ββb∩Y→%_
∞α⊂H%n∨,εBε↑L@λ∞Nα8	 @1S]JAα≠#πK∞≠S↔KM≠S'∂_h ⊂MIId`L_6⊂J@,↓⊃,p	bYP4s⊂≤βpec@%CXAC
iSmCQS←\A5←@∪∃∧εv∂~
xAQ@∧e)∀h∧W+3	↓	; N`≡@4AgWSβ↓βπβ,∧⊗ HαB3)Zβ"D`PX@	,[XWD -1(λA]BV⊃↓β↓EAAαaEABh∧¬hhαB5
K4q5↓_0hλDK∧@]@⊗p¬s - p	ke8AShAα∪π∂-∧¬vp@ B2
)⊗B,&@DV)#Th∧RS		;RESTORE USEB5%⊗≡M~RεJ_h ⊂L)J@Kq∃Cc"B*	t∩B*It⊂λ∧K∧¬∀v4⊂	m%%"∧U3PjI3s@⊂∀d)!gQ∧¬∀vα↓↓↓↓h∧¬∀5∃4I@⊂*)*QP 	F HIGH5'∂≠∃_
QαM_4)@4∧ααα∧
4D
(_$d*D	u$DX∧Ui~q(⊃H→α)bFBα;
SHRCOD8∧∪⊃¬I_∞$__3λJEhu%≤ya⊂K]8XR∧Ld	∧<Bλ∧q(y+H∩*4∀r↔βE	GETTAB	AC1	,		0⊗A1_∞ <αh⊂*Dλπ#j∀cg⊂*⊂a&"FBα	HALT	↓		8π%%=$A%Q+%≤~(∪⊂∩N@Jε
DJaU@;vr3 H↔:4DLh¬⊂⊂αIT 1 T@≡AI∪∂"$j0≥≥D
∧d8QP@L→hDHL_6⊂J@""'a`EAR THE OTHER BITS
	PMPB	TLπ! ∩0~∀`,hQ`~R%$∧dMHZ$@∀c"GFE∧f∩h∧
	PRGEND	∀__∪)∪Q→αβ/I)
≥~TTTAA%∨π⊃+%&↓+%)
9~Aβ≥⊂A/%)M∪0@T(T~∧∪Q/⊂≡N,84)@1Q#JR%$∧,@U∀V%Z⊂πdg∃)P∃∃
∧A≥FB∧bg*∀,Dki∃#'&FB∧bg*∀,Dki∃)`lεBα;
;*** EXTE@%9β_A∀*~εJ,r∞⊗MαQ)(Q'0hSαc"GU∃∃⊂∀ cdiU i⊂"⊃c$g$U$gg ***
9
	AA0=	0
∪βbzαb4⊂∪%≥∪∀`4Kλ$$∀∧ααβ9→dM$α3∩*85∩3i@⊂ ∂F RAGISTARSTAC@⊗~(∪%∞t∪%∂%_	-DhP&J⊗9	t&J,:&9-λYD4λM∩⊗≥IhJJε≡Lq-E-⊂h(&J,9Mt&∀*≡&9Xε∩[_Q!∃∀1mπ!~Q1r)@∃XU@4
∪%∃∞jz∪I∂&p¬3
[QQ M∀XrchM(XtLr6⊃3 HαB3HZβi"cOP_ZFB∧j'h∀≤@	1\~∀`,hQ`~R%$∧$4ptI~∃∩3iD⊂πc⊂∀ ia`S⊗c$f⊃a&'aRP⊂ ∪EE P@%=∞⊗∩-∩∃α↑∀JRε6~α6→α≤z6Bεd*I%↓RQ($	Xh &~LbBRIh↓@$!_dL@⊃3qGT#"A_R3⊃)@d∧= 2
∪
%→∨!≤βi↓L4PJ~&2dZA`*∧¬β!↓1R3λYβ*≡@
FA∧c∩d∧@∪≤βh%XQ!∀4LIzU#J∧¬c!↓1R3λ→α)V@ 10
	FILSTA= 1D∩∩α@@@v\,`@A
=$A
∪1')βQ+&~∀$∩∩α∩@@@Vαq-E↓∧20≥∩λHU )0q#!↓ ""!∀λλλπTε+2A
∨$↓!∨&u"⊗IααIr∧∃Xhd-∀λX∀$
!Q L4→Id@,εP_M∧@
	FIH	E!u↓E(h &~LbBJ=j↓E@0β"B(i3∀∀	GαP⊂@7
∪
%→¬
⊂βi↓I@HH%↓↓α↓`≤∃Xhd-∩	λT$X∧C!↓1R3λ*∀ ⊂_@			    ;@¬3)
↓!∨&u"⊗HQ!∀4LH*D7(λ@→αD@	    ;BYT@
Aπ=+⊂~Q∧J0∩∧*Xd4
!Q L4→ID`*LεP→D@		    +IF ASCII MOD@
@Zαα2&:,rIα→`λλ~pr2(→⊂4P!Q@∧DDBDP⊂⊂λ≥a`∀ERS
	FILCNT9  $β $$∀∧ααβ9Iβj∧α1Hλ$g i⊗P 
ODE : NEGATIT¬∃↓∧rV ,(QP@H⊃⊃⊂Jα∧∧βM∩	xb¬<z(E~∧→`λλ→βb`⊂OL@≥(4⊂∩α∩$∩@@@p∞&→∧
N∞→∀∧l\HTαβRλ9∧
∀_:D-∀9jB∧Ld	DL@@εE∧BD@		    - Tπ%∪)∀A'∪1	∪(['Q%∪≥∞!/%)'%0R~∀l@@@@4@y%≤|{
∪1
S¬→=π⊗~∀l@@@@4@y%≤b|{'%1¬∪(5')%∪9∞~∀v@@@Z↓%∞du→≥∂Q⊂~∀v4∃/%)→→~tA!%%∩∪I∞b∩1
∪→≥¬~Q%≤R∩@@@wβ	⊃%'&↓∨A
%→≥β5
~∀∪5∨%∩%%∞d$Xl∩∩@@@w
⊃β%β
)$A
∨#≥(4∃/%)M∪0tA!%→∩∪I∞b∩0hh`l@`@∩@@@w'∃(A+ ↓¬3)
↓!∨∪≥Q$~∀%∪→	∧%%β∞f$Y%∞D∩∩@@@w∂PA≥⊃PAπ⊃βIβπ)H~∀ββ⊃	∩β%∃∞f∩XP`∩∩@@@wπ=≥-%PA)≡A¬'π∪∩4∀∪∨+Qπ⊃$∪I∞f~(∪'∨∃≤∪%∞H∩X\ZL∩∩@@@w≠∨I
Aπ⊃¬%βπ)∃%&@}4∀∪≠∨Y∩∪%∃∞f∩XTl∩∩@@@w∪9'%(↓!%∪=λ~(LzVR∞E⊂&J⊗;_4(εlzRε$M∩⊗≥HJaL$¬α↓↓↓n%JB∃α-BR⊗:≤J>(4PJ&"∩⊂JJε≥_I2J⊗;λ4(ε"∩$&∀*≥L%c!@4λLzVR∞E⊂&J⊗;_4(ε≤z*≤&∀*≥H¬bq5L$J↓↓↓↓\
21α$BJ⊗∃∧∩fR⊗~αRJεu~~εJ∀*⊃↓|hP&B>∧P&R>¬%0$J↓↓↓↓]∩⊗BVα)`hSαc"G∃JJH	I5⊃4H→∀c"G1"B3	~β"B*
Qq3HA ¬β∧j$j∪ ¬∪)5!)' ∧αRR$
¬∀|8XE-∀T
Dm¬J:BαR%!P@!5∃sj81c"GFA≥@*** ENTRQ-PLπ∪≥%→↓))Ph ∪XQ!∀,@U∀V!~α 
@!Q' ~∀l~∀`-RQ)α⊗β
D-∀h→B¬∀XhU∀h8U~ααJJAQL¬FE∞β
;(TTA∀*≡&NαHU∩∧HXdL@R5∩)@dε ***λ
∧v4⊂λ&ε≠↓t%@hP&ε
α⊂∂!⊗ εE∧T ¬GIN=	1			    8π∪≥∪Q∪⊂∩~8∃$Ly`λ	@c⊂ ∩EGIS@)∃%')β
⊗~∀∪I∞z∪I∂&p¬3λhαB4HXl/"*(αcdg
XUPFBα	REG28
β%∃∂∪≤Vβ	-HQ!∃∀1lo!~Q1r)@∃XU@3
∪%∃∞`⊃tM∩⊗≡→`
f∃mβ"A~Q1`~ODi"cRe∃P@+5
∀∪I∞l@hJJ,y→b[
4¬C!∧g"kT ¬G=b`∀Q!∃$⎇λπPKqQ#Hh'1"RRλHU≤≥)~¬$Ly`λ	@c⊂ ⊂ASCAL-FILEBLOCKQ'
↓!%∨π∃	+%
↓(∞J&$*6
α|1α∞yZ∧L@⊃0	) ***
λ∧v~∀%
∪→!Q$p∃↓α↓P@!1R3λYβc⊂≥b~(L2& $YyCjβ!Q L4→Iu∧sβ(aQ@∧c$S& @= 4
	FILENT8
@@(h ⊂Li→DL@LεD[βE	FILOU@(βi↓\4PJ~&2≤bMu↓α⊂↓Q@∧c$S)j @= 11			    8εP→-α↓α
>⊂∧∧4LHZ5$
JZ0hPα""!⊃(λλ∧πhπ∃@1  FOR @	4J≤(Q!⊂HHα"(∧∧λλ
@.+2  FLπ$A∧z& 5HZ"¬$βh⊂JXQQ4Iλα`b"T∧¬∀∪→∪⊂∩h→Sjβ⊗AP@!1R3λ[∃∂ ⊂X¬~∀%
∪→!I~z@Bβ04(_i∀e¬	`∂$ε-c"A_R3⊂Hi∂(F↓ ∧DPλ⊂⊂⊂≠BUFFER HEADER~∀%
∪→¬Q p∃↓α !⊃ ∧P⊂λ⊂≥a,U ¬ @!=∪⊂~R-⊂4(_i∀d∃H7Rβ∪!⊃⊂Jα∧∧β@8T∧j"H!cjg∃⊂ 	N↓
V~4*H (!_dL@⊂ε')∂P→→DBDP⊂⊂λ≥`	F ASCII MODE - LIL¬⊗:⊂∧∧L@H⊂4h→20rλ~P#"A⊃ ∧DDH⊂⊂⊂≥PβP	∃_4(_i∀d≤βP
∞H→~∧DBP⊂⊂⊂∞βH	!βPλ	_H⊂R)@ i,P∪eb"P∞α @≥≥β ∩ε4)↓αh¬3( @
			∩∩@@@@]⊃α>→¬:0≥∀J4∧L@H⊂siZ⊂πg"SαT
			∩∩@@@@\J→αε≤~&%αlz∩*∧π"∧≤α⊂4H_u⊃4H→β*⊂$Sα @→∪8~∀$HH$%↓α↓↓n∃∧
2"λH∀α∧→hDL≤~Iu⊂H!⊃⊂HHα(λ∧∧∞p	$∂P b"∀ ¬SS MF FIRST WLπ%λA%_	α∞|jB>~(h $⊃⊃⊂Jα∧∧βL@Uβ"A_R3⊂iZ∂(FQ ∧DPλ⊂⊂⊂≠FIRSD↓(∞ =(@λ	@c⊂!gSh ∂NEL¬(~∀l~∀`-RQ)αNαH∃∃"	xb∧Lh¬P*)03U∧λqq⊃$¬JJC!πc"B*(3∪pa⊗λλ__εE≥CE_*** P@%=∞⊗∩-∩∃αRmαRNPhQ`~α∧∧αj¬HZ5"∧α1Hλi3⊃(	~h⊃⊃)Z⊂stHUαc$f⊃FA≥@    -y%∞x{
∪→∀[¬→∨
⊗~∀v4∃)≠¬"NAhMαVN↓~Dm¬↓∃D≠⊃⊃∩αα∧π5≤
hT∧≠⊃Q LLzhPL4∧"%HR3∀jH*hλT∀ cTDH⊂⊂⊂≥Qbj⊂"⊃i$abH&g"fSg$aFB∧a`fQD`aXBV-idV!$j↔Q)`  /]    ;IS IPλA	M⊗}~∀%∃%'λ%≠ ⊗QλH$%↓α↓↓n:xh &"∀`&ε
α⊃∩d4→IdJ
(T:H∀∧ααβ8)∀<EIYu≥"ε4∧|2λi∀dt→QPPL	J L4⊃∩d4→HUE"
(T:H∀∧ααβ9HT5$Yz5"β4	t2∧Y
D,@Tr3ia"B0h→3B0(6 +⊗j94⊂R*Ehλλ
I4w$∧λ
uλYαh⊗c∩d"WFB∧e))U∧gjjαD@P⊂λ⊂≥dbTP∩P)⊃h∧U@%8A)∞A=→λA↓~∃∨+Pbt@@↓≠↔-
%βεb∩0ZbQ	=! B∩@@@w9~@@5¬∩⊗@%X∧SD
⊃h∪iHλ⊂⊂e6!"B(→pB0(6 +β!!33uHY ∧`aLDV⊗@1(TOPP)
αOUT:	POP	TOPP	,AC1
α	POPJ	TMPP	,
0⊗~(p
))Rα2&R-∩ε"LhQd4(Lb&@4PJBJ≡,r⊂4 `MI~Dd(α04jItr⊂
∃∃⊂(∀'abb∃i"P Th∧OSX ***
λ	TWOSEG
;
;
** ENTRQ-PMINDS ***
λ;
	EH
)%d∪β'$zN`4SX4)@5%"R∧Y
D-∀h→B¬∀XhU∀h8U~ααJJAQL¬FE∞FE≥U
∃⊂ ∩EGISDER DEFIH
∪)%≠⊂→↓RQ($)Xh(&ε≠↓t%@hP&ε
α⊂∂!⊗ εE∧T cdg∂DXDDBP⊂⊂⊂∞βINITIH	&≤
R&>p∧∧l2λ∧Q(y4q⊃**u⊂0i1"B4HXo"4HXp∧g+1
α	REG1=	RAGIN+1+!
λ	REG28
∪%∃∂∪≤VDVd4PJJ,v7PM∀Xy∀`%l*`→CE	REG4=	REGAN,bVh~(∪%∞Tz∪%≥∪∀VbαYT4λM∩⊗≥YhJJε≡Lq-E-0h &:-:J,wPλε⊗α@
	TOP@=	17
9
;*** @'Qβ%(A=Aβ≥Yβ%∪β9(Aπ∨⊃
@@)RP4)@1Q M∀YIt1-εεβ"G⊃"NbE%H⊂λ)∪βCEDUR@
AβM)∨'@h!m↓α↓↓5α≤z2Z⊗α*B∧
89∀J@(⊂
'H)`l!∩h∧ ≠πQ%∪≥∞4⊂v@@@Z@@e∩⊗≥Eu∩!`,~84LJX∧u
)3Qc!πhλλ∧¬(λ∞ PX← ∩H=SIXBIPλ@6≥"J&:8h ∪Z∧∧ααjλ∧Q(vα↑f"S πTH
λ;
ASP	∨'`pA↓¬1∩∪%≤b∩XhP`n`@∩@@@p∞N⊗ ∧¬-αλ+∃$
λ∧∪i→β*"iλ* ∂ PIC@⊗~(∩∩$HI↓↓↓βZVAα
~ε&%¬~RJ&t84(→
$dHα00f⊃+

εεLλ↓∀λλλπ⊃ SV
HT5∞D	3⊃⊂A_0hλ∧K)"c@1		    ;GET BYTE
↓SU@¬∩&→@%1#$%↓α↓↓n∞|rP∀4U⊂∃'P!dV!$jεB∧db(⊂α	AC0	(	βεD~∀β'=∃ε∪%∃∞b∩Y91)¬3P@∩@@@wβ→0A¬#)∃&A)%¬_
N~-∩J,DπphPα4∪j	@5∪j
α+β!πc"Ne%JH∪	~α"`∩ALS ***	α;
λ	LIT
↓PRGEND
λ∧_∪)∪Q→αβ%∃ββ+0α↓)))¬αJ>∞,"VJ⊗~α≡⊗R≤:91α<*R&:"αε*⊃¬∩R⊗N ↓))(hP&B↑⎇~⊗≤4SX4)MRQ)α⊗u"Je6∧z&*R~↓))(hQl4(L*:RJHJ≡⊗R≤:84λL*:RJHJ≡⊗RLrP4λL*:RJHJJR⊗≥ 4)LhQe))Rα⊗bR-∩:ε1¬∩⊗~⊗∀*2∞⊗~↓))(hQl4(L*bR⊗∀p&≡⊗$~ $λL*bR⊗∀p&∞>t*JH∀SX4)@5%"R¬(XtM≥HZ"∧$Xi∀tMI→trα%% hS1Q L6πPKQ!∀≠↔Q∪λh!~$,<→`∂!⊗"""$∧λλ∞i→β$j$S$i`j∩e`∞ OF REGISTERSTACK
↓REG=	REGIN+1
↓REG15	REGAN,bVb~(∪%∞Hz∪%≥∪≤Vb,d~∀∪I∞fz%%∂∪8VbVf4∀∪%≤hr∪%∃∂∪≤VDVh~∀%%β∞jt∪%∂%_VbVT~∀∪%∃∞lz∪I∂∪≤αYE-XhP&:⊗αz$,;Tε∪(h!~D⎇¬πQ∪8Q'0hS5%"R∧HZ4≥∀~
DL\d	t2¬λ~4≤EXdLDX)D`8ph

81(∀
)pq1
ZQ(∃j)5⊃3(4⊂πc⊂⊂ef`$S"i∀P
∃∃εE∞FE∧c∩d(")∂P_εEαc$f"Sc≡P_CEc$S"gf≡H→εE∧Q$f'h∪≤P→FB∧c$f∪%h≡@ 4
α	FIH	≥Pz@j~(∪
∪→%≤p∀%0h(&~Lb>@-GTβ8h!_dLD9J3jβ⊗↓PPLi→E≥$↔Pβλ⊃⊃∩αα∧π2r[∧∧∧4⎇$λdLDZ:D
%X∧c!!"""!∀λλλπ5Jl(∧λStHλH5R0hQ"B"!⊃"(λ∧∧∞kJf$λ⊃Sj$∀∪r)j⊃4H
Ih⊂U(hQ0RλX1⊃4AQB1R)IP3'$ε-β"A_R3⊃+
∂(&Q"B1I→∀⊂SgT-C!!1R3

∪K(ε⊗c"B(i3⊂QIπαP⊃_αDDP⊂λ⊂≥a*Q#"i HAADER	
	FIH	¬)@z@db$∩∩@@@w¬3Q
A!∨%≥)$4∀∪
∪1¬)εzddα∩$@@@@m¬3)
↓π↔+≥PA∪≤A	+

H~∀β
%→→≥$t@df∩$∩@@@s∪A¬'πβ∩↓≠∨	
ZA	∪9≥$A%_	αε≤~&&∞D
J∧∀PH$$$J↓↓↓↓\~R⊗J_h(&~Lb∞ 5GPλε&α""$∧λλ∞iI∂(∩(d⊂R3H~T∧P&Sb"P≥λ'"c`U$k"Pλ'*fa⊃FA∧DBD@P⊂λ⊂≥a⊂∪c⊂#gT ∧S IL COMPOFENT	α				∩@@@w∪_Aβ'π%∩A6|"∃↓↓Rα≤D~(∀
⊃0	!S*⊂$gλ& 	N
	↓			    9E AND TAB INDI@πβ)∨H~∀$HH$%↓α↓↓nJ@πR∧HJ$-≥4	t2∧i~%≥αλ¬sj(λ∩3Dλqs4	Yβ"FEαD@			    ;LT
	FILCMP8
@@⊂εPHHα(λ∧∧∞qR**uλ∃i@i"⊂'Q⊂!gfT'`∞ENTλ
)Xh ∪ZαJJD
u⊂4JD⊂πc⊂∩dεVARIAN@(↓∞ <HTαRR!Q#@1 B4HYα ∂C	400  @`⊂∀'1P@'h¬∃∃λ()'aQb*`∩ES GETSGN, GETINT AND RTESTλ
)X∧αααβ(⊂*[⊂∧f$Pi(	 FUH
π$J0≤@Th⊃I@i⊂#'T&`j*⊃b⊂ ∩EAD
;
GTSGHd∪M↔∪!
%
∪→=Q%≤R∩%α↓↓↓n,r⊃6>2j~&2*↓uαR∃*∀4!~∧`:⊂¬∧j∪βPP	,		    ;YES- RETURN
	PU@'!∀∪)∨A ∩Y∂∃)π HI↓↓↓βZ≡⊗R~α2-α⊂
 @π⊂≡X∧∪i@ ¬ND
λ¬≡⊗αJ4<@L¬⊂&ShεE	A@ε`∩Y→∪⊂∩∞m↓"J⊗8¬⊂Jα∧∧β@8q0
)H εIRST COMPO@≥9(∩(L~ε&∀L
≠∃D"α⊂α"(∧∧λλ
f⊃3	,1		    9YEC - SET SAGN BIT
	SKIPN↓FILEOL(REG)		    ;ENDOFLINE 9 @)I+
@↑4⊂∪!+M⊃∀β)=! ∩Y≥!π⊂$∩@@@s⊂~=αiα≡⊗ α2-λ@∧\X	td3Uβ!!33uHQ00l↓∃⊃R3λ9αh∀)⊃cPDPλ⊂⊂∃c∪βR FOLLOWIL¬≥α∧
JRM¬"5αε≠4(ε∧zB(&$zB@%`h!4T:⊗R→jC@$⊂QPiA,,α%EJl"!∀λλλπa`AERS  FLAGS
CTINT:↓CAIG	AC0	,"→"	↓    ;COMP@∨≥∃→(A∪8A	β∂%)&@↑4⊂λ&∞J≡∀&→@%1⊃↓⊂HαB4	Z⊂B5	@h(∧VαDP⊂⊂λ≥c'PP)"j∃i'εEαija$B`aP⊂	,"0"		    8ππ>u2⊗JR~αεN∞LIαRt	∀e$XxU⊂@"B2)Z3∩"*(αcY∧K_Y∧DH⊂⊂⊂≥Sd∧D IL¬)∂∃$⊂∀(L
∩&∀*≥H∃H∀6α"(∧∧λλ
`Q ∧ NETεA>t(4(~94M∧a_dL@⊃3s¬
Q1`∀BDP⊂⊂λ≥bg"∪c&$g⊃P≡P*∀*bP∨CE	PUSH@∀∪Q_∞B@Jb≡⊗R≤@$%↓α↓↓nitαj∧xZB∧tXε∃∧λpπfh∪dεENT
∪≠=(
(α00f↓+⊃R)Hpε`⊂(R@∞R$@@@@mβ⊂~⊃∧:⊗@%4	∃"∧iz"∧∀yID`:β`	NG PARTS
α	JRST	GTIN@($∩∩@@@w∂PA≥E!α$α1r*D⊂∧c⊂⊂dεP∩~(@⊂∀**D-≥G!∀821b(_lα+∧≤Q∧DH⊂⊂⊂≥PβARACT@$A%_	α∩L:&@%4πphPα0p)_q"0(X∧V⊃⊃
	JRS@(%∞ <βQ4J! ∧DPλ⊂⊂⊂≠NLε@@5¬:J&R*α⊗JJ⎇⊃α6⊗α:4<Tλ∀`(α⊂"l∩h∧
	POPJ	TOP@),	∩@@@wL*M↓T
$-∃0	'βE_
8εTTT↓→∪)Iβ⊂∩MαQ)(Q'0hPα3∩*Aα@
	PR@∂≥⊂~∀_∪)∪Q→∀~8U$xdαRR$
¬∀|8XE-∀T
4-⊃3qD¬JJC!∧j+gTbcFE∞β
∀vαQ))α,rRJ@∃Z∧`93P
)H∃∃∃εBα;
	EH
)%d∪'$*0≤0β"NaQL¬U∃
⊂"`_TERNAL REFER@≥π∃&@@)RP4)@1Q#@1 ¬≥@*** @%∃∂∪'$*Iα∩,2& 4~I∀`9β⊂∃∃
∧¬∀v4⊂λ&ε≠↓t%@hP&ε
α⊂∂!⊗ εE∧T ¬GIN=	1			    8π∪≥∪Q∪⊂∩~8∃$Ly`λ	@c⊂ ∩EGIS@)∃%')β
⊗~∀∪I∞z∪I∂&p¬3λhαB4HXl/"*(αcdg
XUP⊃
λ∧∪%≤dp∀ε∀*≡&9Xε∩[⊂β"B*(αcY↑Bi"cdSα+1+L~∀&∀*≥@#Q~$,<α3@∃LUZεEαi"c@5=	REGIJ+ "αYT4!~$,;dπ"*(αcdg
XUP⊗
λ∧∪≥]%⊗≥h∧β εE∧U'h ≡BX[FE∞β
α;(TTA	∃'π%∪A)∪∨≤αα0≤2λ∧⊂*8p3(i3⊃0IIpr`⊂
)bbP∀)'abQ*i"P∃βRITEMC OF C@∨≠A∪⊂∩⊗α 
$¬JJC!≥FE∧Q$f" U≤¬∩b$∩∩@@@w
→¬∞A)≡↓)⊗N ∧∧4⎇$
D-EEXdL@⊃#"A_R3⊂I→β_
	14ε∩$J↓↓↓↓β8ddt
D`4∃⊃4jD⊃StDλ4pr)∃αfgb⊃F@
	FIH	!%⊃u↓@HH%↓↓α↓`≤@⊂∧⊂≥↓!β'π¬_A
∪1
A
→¬∂&~∀$∩∩$J↓↓↓↓β:$C@(⊂λ*∀⊂*'P⊂βH∂6α	t`(αg ∀
λ∧∪
∪1⊂≡→h∧βλhαB1I→α"gf∂P→εEαc$f'T'_
 3
∪
%→→.βi↓P4PJ~&2,rQ`*∧¬#!∧c$f∩dε0~∩X~∀&4J2>Vα@∂$εc"B(i3⊂s
7(λ _βE	FILSTAt@bb∩$∩@@@p
 26∧α∧∀z λλi3⊃4jH5∃4aQ@∧DDBDP⊂⊂λ≥S∃@1  FOR DEFIAE
			↓	    +8Vd@A→_∞Iαα	tL@U⊃4D
⊂πP!∃c#"i∩ ¬ADER
	FIHFAM= 14
λ	FILEXT=15~∀%
∪→!I≡z@bβ04(_i∀e¬	cRβqQ L4→H$4CTε#H⊃∀ααα¬8%,4hZ"∧DX_D-⊂Q!∀4LH*Eβ@(λD!⊃ (λ∧∧∞pV*H(⊂λ'RdεTER
↓FILBTC= 22			    9BYTE COUNT AN↓↓+

∃$∩∀∪→∪⊃2u⊃u↓I_H$%↓α↓↓nε2αεN∞LIα6>$)↓5αdJ:ε:∩α& 2λ~4≤L_9∧
∀⊃Q HH⊃⊃∩αα∧π4≥∧Z*0hPα1R)HsU∂$εMα"!∀λλλπ9∩∂ 	_H⊂R)H4V(	Yq⊃(π$∪Q1h~∩5Q$∧∪Q3((!"B!⊃""(∧∧λ
tD	qH∃izQ∀h	→β⊂!gSh'g"S*εE∧BDDDPλ⊂⊂≥dQ⊂ iaRdP&gQ ¬  : CHARACTERCJT IN DIN
∩∩$∩∩@@@w
A¬≥λA)¬∧A∪≥⊃∪πβ)=$~∀∩$∩∩∩@@@w¬ zAβ	⊃%β'&↓∨A
%%'(A]≠%λA%≤Aπ∨5!∨≥
4∀∩∩∩$∩@@@w∃(~(∪
∪→
≠ z@Hj∩∩∩@@@w→∪%'(↓/⊂≡J α>→α≤z6B>t*:P4SX4)MRQ)α∞|rNRεu"M↓	RP4)@1Q Ll≠λT|3Tε∪h'1PSZ%%"¬≥H~%"∧xd∧L@UP4I_3Uλλ9q⊃(¬%JC"G1"B4HY⊃pb&Fε↓ Nc!'jJJD
∀SphX∃0Q$
q5⊃)xC"Nd∧λλ$
q5
Zλ⊃3he0su)j⊃4C!'hλλ∧¬(∀q*D⊃3s	eλ⊂sλX4H⊂iλ4K0iz3U⊃*!"Nh∧∧λ(
(5∃4Id∃∪h
Zq4C!'hλλ∧¬(∂∀HXoO1I→⊃+0IIprc!'c"ThZ⊃3qG$∪3uIi 00f↓+∪0+λ3qH↓∀λλλπ93R5	_3∩6HT⊂su)jλ⊃Sj!"B"!⊃"(λ∧∧∞s0+	353$	U30HZH∪qDλ5∃⊃)Z∃∀c!!33uHY 00f↓+⊃R)H3qJ
(1j"$∧λλ∞jIh∀Q(_λ⊂Q+→sQλλYqC"A→3uQ)⊃00l↓∃λHλA⊃(λλ∧πr3ThZUλ⊂IH3Rc!!33uHY 00f↓+⊃R)Hs4

(1j"$∧λλ∞i→U∪hλi3⊃+(9s4∪ih3Uβ!!03ta_R3⊃)y
∀Q(u""(∧∧λ∞thZλ⊃3iIH∂(
JU1#!!2∪∀A_0lα%HR3∀
JJ∀Q(u"(λ∧∧∞u⊃+
1R)H/c"A~∀SSA_0hα%HR3⊃λ~α"(∧∧λ∞ti94λ∩(d∪Su↓QB2∀J+Tb1I→⊂sU¬
Q1j!⊃(λλ∧πps⊃(~Th⊂iλ4P0jH4PsJA"B4	z∩B5	z∀α+↓⊃(λλ∧πtQ5
ZSC"G1"NjE%H∪∩*H4P3
1"Nc!!3∩5↓QB4∀Hx3Qβ! ↓A5∩5	H"5tJH56λ¬%JH∀
)pq1
ZQ4h
zU⊂S	5λ∃∪izs3∧
tU∀hyH⊂3HD∃tU	Z∪H
E%C"B*Jstq(q"Nc!'jJJDλ3U∀K∃4∪r)j∀h
E%C"NaQ@13JJV"5j*⊂S∩aQ@13JJV"5	yts3↓Q@13JJV"5j*∪t∪AQ@13JJV"5j*∀qsAQLc"G5JJHλ[∃⊃4Ih3λ∀HXQ0Q)Hq4h¬%JC"G1"B1+
⊃4SA~∃5⊂i
A"NaQLjJE$∀Q1i~u⊃4Dλ⊃1R)i5∩3id
JJAQLc"A_0l∂!⊗β"B(_l/"&⊃"B4HXr3G!⊗"""$∧λλ∞i→β$j$S$i`j∩gc⊂'Q⊂)"cRij"i∀j aeCEi"Q↑Di"Qdg∃XCEi"QX↑Di⊃cdg¬LUXFEαi"cY∂Di"cRg∃XULεE∧i⊃cYVDT"cdg
XUYFB∧i"cM≡Di"Qdg∃XJZεE∧T"cZ↑Bi"cdS∃XUZCE∧i"Q[≡Di⊃cdg+1+6
	NEGREG= 15
	TOPP=	13
;
3*** START OF INFARIANT CODE ***
;
	RELOC	400000
;
0⊗T(TA!%=β	+I&A/I)¬→⊗0A/%)M∂≤XA]%)∨!8Aβ≥λ↓)∨∨'5_~∀v@@@Z↓β+1→%β%2A→+≥π	%≠⊂~M∧2>Iα4zJ6ε%"⊗⊃α=∩&B∀hQl4*=∩R
2[Qα*Vmα2∀&∀*≥H%bq-P$J↓↓↓↓]:J&R-→α
2r.⊗M∧zVP4PJ6.Z,H&ε
I1	↓⊂h(&B-~"(ε$zB@%eαVR∞E⊂4(&≤z*≤&∀*≥H%bq5D$J↓↓↓↓\~>F:"α⊗FVaαj⊗∀y|4(Mα>B(M">B@J`$%↓α↓↓nf-→↓5α∀*RVJph)4U:JR>∧qiα6⎇2⊗$&∀*≥T%bBJ⊗≥∩I%↓α↓↓nN
2⊗Mα4zJ6ε"α
ε∞
*N∃α∀*≥IαM→αVN,!α~>⊂h($$HH%↓↓α↓n&∩M2%6&u~RJV≥"&>_hP&N⊗%P&J⊗; %0$J↓↓↓↓]∩!↓5∧~>F:"α>→α$J≡&R~α>)α¬*N!6dJNP4PH$$$J↓↓↓↓\b!↓5∧*E↓Qβ↓AAA∧J→αNL:9↓uα95≤4PJ*V6∧:∀&J,9D%2⎇*P$%α↓↓↓nt*≡εRM1α:Vl∩⊗I|hP&R∩xJJε≥ I1QAβ↓AAJ↓↓↓↓]J⊗M↓jαN⊗Q¬~&≡9∧jεJ.-⊂4(&$b2∧&∀*≥D¬c→]M]98$%↓α↓↓n2@∧βjβFεβββ¬qPPL**5 Ly1⊂HJ∧∧αβ\itαj∧xZB∧l_ydM∃1⊃!Q@5∀I@'∧i"QX@V≠MXπ77↔		    ;RHz@`@@```@xh &*∃~P&R|zN%DHH%↓↓α↓f~>⊂↓QAAαεβββ∧∧εε⊂H∪iI⊗(∪h~α fεB∧@
OK8	SEBI	REG5	,1		    ;H∂
↓!→βπ∀A∪≤A→≠%≠βPA+'
↓
∨$AM∪∂8hP&&>4h&J⊗9λ%"J,9D4)zU#P~	u∧P~Iu¬∃APBQ*u∃%8ycR¬IK$`!4Q1fA+
εελλ↓∀λλλπ~p∧cgλ hj`S⊂∪VSOFE∧h∪h!∧j∪h(∧VαDP⊂⊂λ≥c'PP)"j∃i'εEαfgk"RD`aXαV⊃⊗@"		    ;YES
∪∃I'(∪!U)π⊃∧$∩∩@@@w!Qβ⊃$AI ∩Vα)e~∧zhU∩¬λ¬5↓QHβ"JIsts&↔@∧h'T∧j'h∀∧V aL∧@P⊂λ⊂≥b$T ab RATURN TO USER
TOOSML: MOP
∩%βε`∩0@	)λHI↓↓↓βZ~>Jl
Qα&~αR>t
4lIAP@MλZ4DP~Iu¬∃J¬-∧9
 hP~9tT_~(T;λ∃EbkλQ!∃∧⎇	!∃$⎇λ↓∩`H∀∧ααβ8(U%-)j2∧⎇Z@λ	@c⊂ ↔RIP	
[I_∞@-I→d(h'1PCZ%%"∧d~HU∀J1PCXQ!∀dMAQ M¬(xT`(αεEβ∧j$j∪"@	FOR@$\α↓)))¬αJ>∞,"VJ∃∧26J⊗α D¬JJC!↓5∃sj81c"G1"NbE%H⊃3JJT+4	Y3Q∀d¬JJC!πc"B(Yβ*),Bc'i"T↔αE≥CE→U∃
⊂)`∀ART OF IN@-¬%∪β≥PAπ>$)↓))Ph!l4PJJ⊗2|_%AAαεββQ'0hSαjJE$⊃StJJP3@⊂⊃i)'ibhλIT
0⊗~)
∨%HX	h→zU%≥J!∃@84pr+↔FE∩ODb`∩RLπ$A∪8A¬∨%Q%β≤AA%∨π⊃+%
←t~∀&-B&@ Q'0hSαjJE$⊂ε$j⊃i f)H∃∃∃εBα;
	LIT
	PRGEL¬⊂4P